BuilduCodeTutorial.bravo 

Building a disk for microcode development. 

This tutorial will take you stepwise through a procedure for installing the appropriate 
software on a disk for microcode development. Because this procedure involves two disks 
and because members ,of the microcode group utilize parts of this procedure in the daily 
development environment, it was decided that the several parts of this build procedure 
should remain disjoint rather than be integrated into a single command file. 

There is a document which contains the procedure outlined below in flow-chart form. It 
is on [Iris]<wdO>BuilduCodeChart.press, .sil.. It may be helpful in giving an overview of 
the process despite its considerable abstractions. - 

=$• Be aware that this procedure requires two disks! 

=> Command files referenced below usually have self-contained documentation. 

=$► Build paths for various modes (Alto, DO, Software- bootable, pushbutton- bootable, etc.) 

will be addressed at the appropriate points below. 

1. Spin up a clean (or craseable) disk on your Alto. Boot the NetKxec and invoke 
^NcwOS.boot (see Alto User's Handbook, pp 6). Use the long installation dialog, DO erase 

the disk, and do not change any parameters. The Alto program host can be Iris, Maxc, 
*etc. and the Alto program directory should be Alto. You do not need a big SysDir. 

2. Retrieve and execute [Iris] <wdO>BarcBoncs.cm. 

I'his will install minimal software utilities (Bravo, EmPress, etc.) on y6ur disk for 
working with microcode. Don't forget: to edit the HARDCOPY section of your User.cm 
and to initialize Bravo before continuing to step three. 

3. Retrieve and execute [Iris] <wdO>MidasDisk.cm. 

This will install Swat and the Midas loader/debugger on the disk. 

4. Retrieve and execute [ Iris]<wdO>HxtantFiles.cm. 

1'his will install Micro. run (microcode assembler), Microl^.run (microcode instruction 
placer), and various microcode files currently needed to build a microcode disk. 

5. (Retrieve and)exccute[ Iris] <wdO>MicroAll.cm. 

This will assemble the entire complement of DO microcode. It is probably worth getting 

a hardcopy of this file. 

=^ Should we tell user to check for errors here? 

As you are doubtless aware, there are two modes of microcode for the DO: Alto- 
compatible and DO- compatible. The following prose assumes Alto- mode in normal text 
and DO- mode in parenthesized text, e.g. the phrase "execute @A1to-Mumblc.cm (({^CDO- 
Mumble.cm)" implies running Alto- Mumble.cm for an Alto- mode build and i:)0- 
Munible.cm for a DO- mode build. 

6.(lletrieve and)executS[lris]<wdO>BMesal.cm (BDMcsaLcm). 

Tills builds the first block of the microcode, liMcsal.rnb (BDMcsal.mb). 

7.(^Retrieve and)executc [Iris]<wdO>BAMesa.cm (BDMcsa.cm). 

Tills builds the second block of the" microcode, BAMesa.irib (BDMesa.mb). 

8. Check your disk directory for the existence of the microcode binary files that should 
have been produced by the two preceding steps: BMcsal.mb and BAMesa.mb 
(BDMcsal.mb and BDMesa.mb). STORH these two files on your local file server and spin 
down the disk. We will now go to the second disk, since the current one probably has 



only a few hundred free pages remaining. 

9. Using another clean or eraseablc disk, build a Basic Mesa 5.0 disk as follows: 

A. Invoke NewOS,boot from the Netfexec as detailed in step 1 of this procedure. 

B. Retrieve and execute [Iris/Isis]<Mcsa>MesaDisk.cm. 

This Basic Mesa 5.0 disk will contain Bravo. Other utilities may be added later if free 
space is available. Don't do it now! 

10. Retrieve the following files: 

[ your- IFS]< your- directory>BMesal.mb. BAMesa.mb (BDMesal.mb, BDMesa.mb) 
[ Iris] < wdO>MakeLoaderFile.bcd 

For creating pushbutton- bootable microcode only: 
[Iris]<wdO>MakeAltoBoot.mlf (MakeDOBoot.mlf) 
[Iris]<wdO>AltoBoot.cm (DOBoot.cm) 
[ Iris]<Alto>MoveToKeys.rLin 

For creating software- bootable microcode only: 
[Iris]<wdO>MakeAsb.mlf (MakeDsb.mlf) 

11. If you want software- bootable microcode, this is the last step. If not, skip this step 
and go to step 12. 

For software- bootable microcode only, execute: 

MakcI.oadcrFilc.bcd MakcAsb.mlf (MakeLoaderFilc.bcd MakeDsb.mlf) 

I'his should produce the software- bootable microcode file named AMesa.sb (DMcsa.sb) on 
your disk. This completes the build procedure. The steps below pertain only to building 
pushbutton- bootable microcode. 

12. If you want pushbutton- bootable microcode, then continue with this step. If you want 
sofrwarc- bootable microcode, go back to step 11. 

For pushbutton- bootable microcode only, execute: 

MakeLoaderFilc.bcd MakeAltoBoot.mlf (MakeLoaderFilc.bcd MakeDOBoot.mlf) 

I'his should produce the bootable microcode file named AltoBoot.bt (DOBoot.bt). To 
make this microcode PUSH BUTrON- bootable, execute: 

@AltoBoot.cm (©DOBoot.cm) 

This disk should now be pushbutton- bootable on a DO. Try it. 

13. End of procedure. 
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// [Iris]<wclO>MicroA11 .cm 

// Last modified by Chang on October 11, 1979 5:32 PM 

// tnodiried by Chang on September 7, 1979 1:33 PM 

// Modified by Maxion on August 24, 1979 

// This command file assenrbles the entire complement of DO microcode. 

// These commands will produce the .DID files used by MicroD. 

// This procedure requires about 575 disk pages and about 35 min. to run. 

// Documentation; 

// Self contained; 

// [Iris]<wdO>lie1p-wdO. bravo; 

// Micro: Machine-Independent MicroAssembler by Fiaia, Deutsch, Lampson. 

// Micro assembles a sequence of source files with default extension ".mc" and outputs 

// four files whose extensions are ",MB", ".ER", ",LS", and ".ST". The default name for 

// these is the name of the last source file assembled. Note that applied to this 

// command file (MicroAll.cm) there is a hack in the file DOLang.mc that causes the file 

// extension ".MB" to be changed to ".DIB". The pertinent lino from DOLang.mc is; 

// "BUILTIN[SETMBEXT0,47]; 'Set .mb file 

// You must have tho microcode assembler on your disk 
// [Iris]<wdO>Micro. run or [Maxc]<Al to>Micro , run 

// ... and the global files 

// [Iris]<wdO>Globa1Defs.mc and DOLang.mc 

// ... and tho definitions file(s) as necessary for each module. 

// [Iris]<wdO>UIDefs.mc, DMDefs.mc, EtherDef s .mc, XVJDefs.mc, OccupiedDofs .mc 

// The following is true for the assembly commands below; 

// <Fi1eName> defaults to <Fi leName.mc> 

// The "/o" means that symbol table (.ST) output will be suppressed. 

// Tho "/u" moans that all source characters will be converted to upper case. 

// Tho "/b" moans the binary will bo listed on tho file named before tho slash. 

// Outputs from Micro. run are as follows: 

// FileName.DlB - D-machine intermediate binary 

// FileName.ER - error list 

// FileName.LS - assembly listing 

// FileName.ST - symbol table 

// lUTFP (Interim User Terminal, Full Page) 
// Requires [I ris]<wdO>UIDef s .mc 
micro/o/u Ullnit 
micro/o/u UITask 
iiiicro/o/u Key 

// UTLF (User Terminal, Full Page) 
// Requires [Iris]<wdO>LFDef s .mC 
micro/o/u LFInit 
inicro/o/u LFTask 

// IRDC (Interim Rigid Disk Controller) 
// Requires [Iris]<wdO>DHDef s .mc 
micro/o/u DMInit 
micro/o/u DMTask 

// RDC (Rigid Disk Controller) 
micro/o/u RDC 

// EthorNet + RS232 

// Requires [I ris]<wdO>EtherDef s .mc 

micro/o/u Etherlnit 

micro/o/u EtherTask 

micro/o/u rs232Sio 

// EthorNet masquerading as XWire 
// Requires [Iris]<wdO>XWDef s.mc 
micro/o/u XWInit 
micro/o/u XWTask 
micro/o/u XWSio2 

// Nova emulator 
micro/o/u Nova 

// Mesa emulator, DO mode 
micro/o/u MesaLS 
micro/o/u MesaJ 
micro/o/u MesaX 
micro/o/u MesaP 

// Mesa emulator, Alto mode 
micro/o/u aMesaLS/b AltoMode MesaLS 
micro/o/u aMesaJ/b AltoMode MesaJ 
micro/o/u aMesaX/b AltoMode MesaX 

// BitBU (Bit Block Transfer), both Alto and DO modes 

fflicro/o/u BitBU 

micro/o/u aOitBlt/b AltoMode BitBTt 

// Initialization: devices and memory 

micro/o/u Initialize 

m.,icro/o/u AInitial ize/b AltoMode Initialize 

//Fault handler 
micro/o/u Fault 

// Dead start and timer code 
raicro/o/u Timer 
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// Two Stage Overlay code 
micro/o/u Overlay 

// Blocks I and 11 reserved words 
// Requires [Iris]<wdO>OccupiedDofs .mc 
iiiicro/o/u Mesaloccupied 
mIcro/o/u MesaZoccupied 
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// [Iris'J<wdO>AVtoBoot.cni 

// Last modif ied on August 17, 1979 

// Last editor was Maxion, 

// Command file to make a MEW AUo-niodG, DO-bootnblo disk. 

// Executing this file 1n the presence of the MIos listed below 

// win make your disk bootable from the DO Maintenance Panel. 

// This procedure does not require free disic pages to run. 

// Documentation; 

// Self contained and [Iris J<wdO>ile1 p-wdO. bravo 

// This command file requires: 

// [Ir isl<Al to>MoveToKeys . run 

// [Irisi<wdO>A1toDoot.bt UNLESS a nov/ AltoBoot.bt is generatei 

// (See [Iris]<wdO>Molp-v/dO. bravo. ) 

MoveToKeys AltoBoot.bt 5GE 

// This disk is now bootable from a DO Maintenance Canol . 
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// [Iris]<wdO>AMesa,cni 

// Last nioclifiod on 28 August 1979. 

// Last editor was Maxioii, 

// Builds midas boot version, alto mode 



// This file is basically uiidocumonted , but will bo Improved later. 
// (I'm not even sure whtit it's Cor or if it v;orks. - l!M) 

MicroD/c AMesa/o Nova Ullnit UITask Key DMTnit DMTask Etherlnit EtborTask rs?.32SI0 aMosaLS aMosa.l aHesaX Mesal' DitBlt Ihault nilnltinlize 
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// [Ir1s]<wclO>(3AMesa.cni 

// Last modified on August 1/, :1979 

// Last editor was Haxioii. 

// Guilds second block of DO microcode, Alto-iiiode, 

// Generates BAMesa.nib, which can be loaded into a D-niachine and run by Midas. 

// This procedure requires about 90 free disk pages. 

// Documentation: 

// [Iris]<v/d{)>He1p-wd0.bravo 

// MicroD Manual by Peter Deutsch 

// Her origins of AMosaLS, etc. and other ".dib" files see [I ris]<v/dO>MicroAl 1 . cm 

// The ",dib" files are output from the Mic roAssemb lor, Micro (Micro. run). 

// This command file requires the following files on your disk: 

// [I ris ]<wdO>MicroD. run 

// and the .dib files (default extension) named in the commands below. 

// The result of running this command file will be the generation of: 

// BAMosa.MB 

// --.csmap for each file. Xtivoked by the global "/m" switch. 

// -.occupied for each file. Invoked by the global "/m" switch. 

// -.regs for each file. Invoked by the global "/m" switch. 

MicroD/m/o/r BAMesa/o HesalOccupied Nova AMesaLS AMesaJ AMesaX MosaP ABitBIt 
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// [Ti-is'J<v/dO>BareBones .cm 

// Last modified on August 20, 1979. 

// Last editor was Maxion. 

// This command file will install the minimum (more or less) software on a disk to bo 

// usod foi" microcode (or other) development. The user should have "primed" a new 

// disk by booting MewOS.BOOT from the NetExec before using tins command file. 

// This procedure roqui res about 1200 free disk pages. 

// This file will install : 

// Bravo for editing microcode, etc. 

// Empress for printing with ease 

// Neptune for perusing your directory 

// Swat for Midas ... and other things ... to work 

// Any of these may bo deleted except Swat, witliout which Midas will give you grief. 
// Removal of any of the others will only inconvenience you. 

// Documentation: 
// Self contained. 

Login 

// Retrieve tools and fonts 

Ftp . run Maxc + 

t 

Directory/c Alto Retrievc/c Rot riovoBravo . cm Empress. run Noptuno.run Instal ISwat . run t 

t 

Rotriove/s Nl'rog-User. cm User. cm t 

-r 

l)irectory/c AltoFonts Retrievo/c T imasRoman8 . al TimesRomanlO. al TimesRonianl2 . al T imosRomanlt . al llei vet icaS . a I Hoi vnt icalO . al Helvotical2. 

**al llelvotical2b. al Hul voticalS. al GachaS.al GachalO.al CachalZ.al IlippolO.al Logo24.al tIathlO.al ArrowslO.al ^ 

t 

Directory/c Fonts Rctricvs/c Fonts. Widths 

// Install Swat 

InstallSwat 

Delete Instal 1 Swat . run 

// Bravo is not fotcltod until i>er-e because installing it requires the foirt 
// files and User. cm. Be sure to re-install Bravo if you change user. cm. 

(9Ret rievoBravo . cm 

Delete Rot rievoBravo . cm Dumper. Boot DMT. boot 

// Install a variable pitch system font 
Copy SysFont.al <- TimcsRomanl2 . al 

// Must boot now because of OS bug that may cause it to 
// crash if SysFont.al got bigger. 

BootFi-om Sys.Boot 

// Please edit the [IIARDCOPY] section in User, cm to specify the name 
// of your regular Press-printing server, then say Bravo/ i. 

// Delete this command file. 
Delete Bai'eUones . cm 
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// [Iris_]<w<JO>BDMesa.cni 

// Last modified on August 17, 1979 

// Last editor vjas Max ion, 

// Builds second b1ocl<; of 00 microcode, DO-moiio. 

// Generates BDMosa.mb, which can bo loaded into a D-ni;ic'nine and run by Midas, 

// This procedure requires about 90 froo disk paejcs. 

// Documentation; 

// f lri3]<vvdOM'elp-wd0.hravo 

// l*iicroD Manu.3i by Peter Deutsch 

// 1^01- origins of ".dib" files see [ Iris]<wdO>M i c roA I I . ci!) 

// The ".dib" files are output from the MicroAssoinb lor, Micro (Micro . run ) . 

// Tfiis command file requires the follov/ing files on your disJc: 

// [I ris]<wdO>MicroD. run 

// and the .dib files (default extension) named in tlie commands below. 

// The result of running this command file will be the generation of: 

// BDMosn.^fD 

// -.csmap for each file. Involved by the global "/m" switch. 

// -.occupied for each file. Involved by the global "/m" switcli. 

// ~.regs for each file. Invoked by the global "/m" svntch. 

MicroD/m/o/r BDMesa/o Mesaloccupied MesaLS Mosa.J HesaX McsaP 3itBU 
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// [Iris]<wclO>DDMesal,cm 

// Last modified by Chniuj on October 10, 1970 ij:42 PM 

// modified by Chang on Septambon 7, 1979 1:25 PM 

// Modified by Haxion on Auiiiist 24, 1979 

// Builds first block of DO microcode, DO -mode, 

// Genoratos BDMesal .nib , which can be loaded into a D-machine and run by Midas. 

// This procedure requires about 120 free disk pages. 

// Documentation; 

// [Iris'|<wdO>He1p-wd0.bravo 

// MicroD Manual by Peter Doutsch 

// For origins of ".dib" files see [Ir is |<wd0>MicroA1 1 .cm 

// The ".dib" files are output from the HicroAssembler , Micro (Micro. run). 

// This command file requires the following files on your disk; 

// [tris;|<wdO>MicroD. run 

// and the .dib files (default extension) named in the commands below. 

// The result of running ttiis command file will bo the generation of: 

// BDMesal. Mti 

// ~.csmap for each file. Invoked by the global "/m" switch. 

// -.occupied for each file. Invoked l)y tho global "/m" switch. 

// ~. regs for each filo. Invoked Ijy tlio global "/m" switch. 

MicroD/m/o/r DDMosal/o Hosa2occupied IFInit LfTask Key DMInit DMTask RDC XWIiiit XWSio2 XWTask rs232Sio Fault Initialize Over-lay Timor 
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// [Iris]<wdO>BMesal.cni 

// Last modifiod by Chang on September 12, 1979 9:19 AM 

// Modified by Maxion on August 24, 19/9 

// Diiiids first block of DO microcode, Aito-modo. 

// Generates BMosal.nib, which can be loaded into a D-inachine and run by Midas, 

// This procedure requires about 12S free disk pages. 

// Documentation; 

// [Iris]<v/dO>He1p-wd0.bravo 

// MicroD Manual by Peter Deutsch 

// For origins of ".dib" files see [ Ir is]<wdO>Mi croAl I . cm 

// The ".dib" files are output rrom the Mic roAssombior, Micro (Micro. run). 

// This command file requires the following files on your disk: 

// [I ris'J<wdO>MicroD. run 

// and the .dib files (default extension) named in tlie commands below. 

// The result of running this command file will be the generation of: 

// BMes.-U.MB 

// ~.csmap for each file. Invoked by the global "/m" switch, 

// ".occupied for each file. Invoked by the global "/m" switch. 

// ~.regs for each file. Invoked by the global "/m" switch. 

MicroD/ffl/o/r BMesal/o Mesa2occupied LFInit LFTask Key DMInit DMTask HDC Etherlnit EtherTask rsZ32Sio Fault Alnitialiiie Overlay limer 
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// [Iris]<wdO>BuildSys,cni 

// Last modified on August 17, 1979 

// Last editoi- vjas Maxion. 

// This command file builds t.hfl DO microcode system. 

// It is essentially the concatenation of ths ".cm" files in the commands below PLUS 

// the apparatus to create the pushbutton & soft boot files for Alto- and DO-rnodos. 

// Documentation; 

// Self contained and [Iris]<wdO>HGip-wdO . bravo 

// Salient results; 

// Create the pushbutton & soft boot files for Alto- and l)0-niodos. 

// These files will bo named AltoBoot.bt, AMosa.sb, DORoot.bt, and DMesa.sb 

// where ".bt" indicates pushbutton-bootable and ".sb" indicates software- bootable. 

// This command file rof|uires the following files on your disk: 

// [I ris]<wdO>MicroD. run 

// [Iris]<wdO>MakoLoadorFile,bcd 

// j;iris]<wdO>MakeAn .mlf 

// ... and al! the appropriate ".dib" files required for the ".cm" files below. 

// It is usual to have run MicroAll.cm before running this file. 

// Duiid first block of DO microcode, Alto-mode: BMesal.mb. 
BBMesal , cm 
delete BMesal.dls 

// Build .second block of DO microcode, Alto-mode: BAHesa.mb. 

SBAMesa.cm 

delete RAMesa.dls 

// Build first block of DO microcode, DO-modo: BDMosaLmb. 

QBDMesal.cm 

delete BDMesal.dls 

// Build second block of DO microcode, DO mode: BUMesa.mb. 

SBDMesa.cm 

delete BDHesa.dls 

// Create the pushbutton & soft boot files for Alto- and DO-modos. 
MakeLoadorTi le MakeAll.mlf 
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// [Iris]<wdO>DOboot.ctn 

// Last modified on August 17, 1979 

// Last editor was Maxion. 

// Command file to make a NEW DO-mode, DO-bootabiG disk. 

// Executing this file in the presence of the files listed below 

// will make your disk bootable from the DO Maintenance Panel. 

// This procedure does not require free disk pages to run. 

// Documentation: 

// Self contained and [Iris J<wdO>Help-wdO . bravo 

// This command file requires; 

// [Iris]<Alto>MoveToKeys . run 

// [Iris]<wdO>DOboot .bt UNLESS a now DOboot.bt is generated. 

// (See [Iris]<wdO>nelp"WdO. bravo. ) 

MoveToKeys DOboot.bt 56E 

// This disk is now bootable from a DO Maintenance Panel. 
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// [Iris]<wdO>DMosa.cm 

// Last modified on 28 August 1979. 

// Last editor was Maxloii, 

// Builds niidas boot version, DO mode 

// This file is basically undocumented, but will be iniprovod later. 

// (I'm not even sure what it's for or if it works. - RM) 

MicroD/c DMesa/o Nova Ullnit UITask Key DMInit DMTask Ethorlnit EtherTask rs232Sio MesaLS MesaJ MesaX MesaP BitOlt Fault niTnitiali/e 
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// [Iris]<wclO>ExtantFnes .cm 

// Last modified Chang, October 17, 1979 11:32 AM 

// modified Chang, September 20, 1979 5:34 PM 

// Modified by Maxion on August 24, 1979 

// Documentation: 

// Self contained and [Iris]<wdO>lie1p-wdO. bravo 

// This command file will fetch and install: 

// the microcode files currently needed to build a microcode disk from scratch; 

// the microcode assembler, Micro. run: 

// the microcode instruction placer, MicroD.run. 

// This procedure requires about 1000 free disk pages. 

// Brief explanation of file roqui reiiients for Microcode: 

// Micro. run ... microcode assembler - needed for MIcroAll.cm 

// MicroD.run ... microcode instruction placer - needed for building Mesa microcode 

// DOLang.mc ... microcode definition language - needed for MicroAll.cm 

// GlobalDef s .mc ... global definitions for microcode - needed for MicroAH.cm 

// ~.mlf ... data for MakeLoadcrFi le . 

// For brief explanations of the rest of those microcode files, see MicroAll.cm. 

FTP Iris Directory/c <wdO> Retrieve/c Micro. run MicroD.run GlobalDefs .mc DOLang.mc t 

AltoMode.mc MesaLS.mc MesaJ.mc MesaX.mc MesaP.mc CitClt.mc Nova.mc Ini t ial izo .mc Fault. mc UIDefs.mc Ullnit.mc UITask.mc LFDefs.mc LFInit. 

•*mc LFTask.mc XWdefs.nic XWInit.mc XWSio2.mc XWTask.mc Key.mc DMDeFs.mc DMInit.mc DMTask.mc RDCdcrs.mc IlOC.mc CtherDurs .inc FLherlnit.mc 

•*EthorTask.mc r!S232SI0.mc Timer. mc Overlay. mc MesalOccupied.mc Mosa20ccupied .mc Occup iedOef s .mc Kernel .mc f 

t 

MicroAll.cm BMesal.cm BDMesal.cm BAMesa.cm BDMesa.cm 
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ftp Iris dir/c <adO>40w> ret/c AVtoMode.mc BAMesaOccupied .mc DDMesaloccupied.mc DDMesaOccupied.mc BitBlt.mc BMosaloccupied .mc DOLang.mc D 
**MDefs.mc DMInit.mc DMTask.mc EtherDefs .mc Etherlnit .mc EtherTask.mc Fault.mc GlobalDef s .mc Ini tial ize .mc Kernel. mc Key.nic LFdefs.mc LFi 
•*nit.mc LFkey.mc LFtask.mc Mesalocciipied .mc Mesa2occupied,mc MesaJ.mc MesaLS.mc MosaP.mc MesaX.mc Nova.mc OccupledDef .s .mc Ovei-lay.mc RDC 
**.fflc RDCdofs.iiic rs232Async .mc rs232AsyncTes t .mc rs232Bit.mc rs232B itTes t .mc rs232Byte.fflc rs232ByleTes t .mc rs232Defs.mc rs232occupied.mc 
•«RS232SIO.mc rs232Test.mc Timer, mc UIDefs.mc Ullnil.mc UITask.mc XWDefs.mc XWInit.mc XWInit2.mc XWSio.mc XWSio2.mc XWTask.nic AltoBoot.cm 
*• AMesa.cm BAMesa.cm BareBones.cm BDMesa.cm BDMosal.cm BMesal.cm BuildSys.cm DOBoot.cm DMosa.cm Extan tFi los . cm MicroAll.cm MidasDisk.cm 
•*rs232BuildSB.cm rs 232 Test. cm 
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// [Iris]<wdO>MidasD1sk.cm 

// Last modified on August 20, 1979 

// Last editor was Maxion. 

// This command file; 

// will (re)instan Midas (loader/debugger) on your frosh (or present) disk; 

// win (re)instali Swat on your fresh (or present) disk; 

// (Swat is helpful, but not essential.) 

// will handle ONLY Midas and Swat - nothing more! I 

// requires about 510 disk pages to run. 

// Documentation: 

// Self contained and [Iris]<wdO>H6lp-wdO . bravo 

// Get Swat and install it. Also get appropriate Midas files. 

FTP Iris Directory/c <Alto> Retrieve/c Instal ISwat . run t 

t 

Directory/c <WDO> Rotrieve/c AMesa.midas BAMesa.mb BDMesa.inb BDMesal.mb BMesal.mb Boot.midas DMesa.midas DOLoader.mb Kernel. mb Midas. mida 

•*s Midas . programs Midas. run User-Midas . programs 

InstallSwat 

Delete Ins tallSwat . run 

Delete MidasDisk.em 

// Initial ize Midas . 
Midas/i 



// Delete Dumper. boot if you wish. 
// Delete DMT, boot if you wish. 

// Swat users; Consider obtaining the new file Swat. help. 
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// [Iris]<wdO>rs232Du11dSB.cni 

// Last modified on September 18, 1979 

// Last editor was Maxion. 

// This command file builds software-bootable files for rs232 microcode. 

// Salient outputs from this command file are: 
// rs232Async.sb 

// rs232Dyte.sb 

// rs232Bit.sb 

// Documentation: 

// Self contained and [Iris]<wdO>Help-wdO. bravo 

// This command file requires the following files on your disk: 

// [Iris]<wdO>Micro. run or [Maxc]<Alto>M icro. run (the microcode assembler) 

// [Iris]<wdO>MicroD. run 

// [Iris3<wdO>MakoLoaderFile. bed 

// [Iris]<wdO>DOLang.mc 

// [Iris]<wdO>rs232Defs.Jnc 

// and the .mc files (default extension) and .mlf files named in the commands below. 

// Assemble rs232occupied.mc 
Micro/u/o rs232occupied 

// Build Asynchronous system: software-bootable file rs232Async. sb 

Micro/u/o rs232Async 

MicroD/n rs232Async/o rs232occupied rs232Async 

MakeLoaderFilo rs232Async .mlf 

// Build Byte Synchronous system: software-bootable file rs232Byte.sb 

Micro/u/o rs232Byte 

MicroD/n rs232Dyte/o rs232occupied rs232Byte 

MakeLoaderFile rs232Byte.mlf 

// Build Bit Synchronous system: software-bootable file rs232Dit.sb 

Micro/u/o rs232Bit 

MicroD/n rs232Bit/o rs232occupied rs232Bit 

MakeLoaderFilo rs232Bit.mlf 
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// [Iris]<wdO>rs232Test.cffl 

// Last modified on June 1, 1979 

// Last editor was D(!D. 

// This command file Ijullds RS232 microcode test programs. 

// Salient output files from this command f11o are the microcode binaries: 
// rs232AsyncTost.mb 

// rs232ByteTest,mb 

// rs232DnTest,mb 

// Documentation: 

// Micro; Machine-Independent MIcroAssembler by Fiala, Doutsch, Lampson 

// MicroD Manual by Peter Deutsch 

// This command file requires the following files on your disk: 

// [Iris]<wdO>Micro. run or [Maxc]<Al to>Micro. run (the microcode assembler) 

// [Ir1s]<wdO>M1croD. run 

// [Ir1s]<wdO>rs232Async.mc for asynchronous test only 

// [Ir1s]<wdO>rs232Byte.mc for byte asynchronous test only 

// [Iris]<wdO>rs232Bit.mc for bit asynchronous test only 

// [Iris]<wdO>rs232Test.mc for all tests 

// ... and the .mc files (default extension) named 1n ttie commands below. 

// Build Asynchronous Test 
Micro/u/o rs232AsyricTest 
MicroD/n rs232AsyncTest 

// Build Byte Synchronous Test 
Micro/u/o rs232ByteTest 
MicroD/n rs232ByteTost 

// Build Bit Synchronous Test 
Micro/u/o rs232BitTest 
MicroD/n rs232BitTest 
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[BRAVO] 

A.IMIT:"{6,2.0,4}g'91 

••eQG[ai] {6, 2,0, 0)1 ;*1z@@L[ 177762, 177777, ]756 

«*«■{' 

**Pago Mumbers: Yes First Page; 1 
Heading: 

"■q 

y0@E" 

B.INIT:"{6,2,0,4}g'91config 

•*{9@G[Slconf 1g] {6,2,0, 0}wnylll4,ylll4,ylll4, {6,4,0, 4}g'01err log 

**@0G[@lerr1ogi{6,2, O,O}n0SE" 

C. INIT:"{6,l,0,0}g'1 iiie.cm 
**@@G[line.ciii]00E" 

D, INIT: "{6,2,O,O}g'01 

**@@G[01]{6,2,O',O}wny66O,y66O,y66O,{6,4,O,O}g'02 

••00G[02]@0E" 

G.IfaT:"{6,2,0,6}g'Ql 
**@@G[01]{6,2,O,O}h 
*0 
00 E " 

II.INIT:"{6,2,O,6}g'01 
**00G[@13{6,2,O,O}hc'02 
«* 0000 '03 

•q 

00 E" 

J. INIT:"{6,2.O,4}g'01 
**00G[01]{6,2,02,02}N00E" 

L.INIT:"{6,2,O,4}g'01config 

**e0G[01conf ig|{6, 2,0, 0}wriylll4,ylll4,y 1114, {6,4,0, 4}g'01err1og 

**00G[01orr1ogl{6,2,O,O}00E" 

M.INIT:"{6,2,O,4}g'01niesa 

''*00G[01niesai{6,2,O,O}wnylll4,ylll4,ylll4,{6,4,O,4}g'01errlog 

*-e0G[01err1og]{6,2,O,O}00E" 

N. INIT:"{6,l,0,0}g'@l 
**@0G[01]00E" 

S. INIT:"{6,2,O,4}g'01.mesa 

**00G[©l,mesa]{O, 2.0,0} 1;*1z00L.[ 177762, 17777 7, ]756 

* * * i ' 

**Page Numbers: Yes First Page: I 

lloaUing: 

•**l;*h 

*q 

y00E" 

A. QUIT: "{6,2,0,0}! ; *1z00L[17 7762, 177777, ]756 

* • * 1 ' 

**Page Numbers: Yes First Page: 1 
lieading: 

*q 

B.QUIT:"{6,l,Q,0}q 

Delete 04err1og; Binder /-p 04/g IF.run/r 04Grr1og then Bravo/B 04 

C.QIJIT:"'q 



D.QUIT:"{6,2,0,0}q 
BRAVO/D 04 05 

F.QUIT:"*q 

FTP Iris Store/c 04; Delete 04 04$ 

G.QUIT:"*q 
Chat 04/D 

M.0UIT:"{6,l,0,0}q 

Delete 94errlog; Compiler -Alto/c -pause/c 04 IF.run/r 04errlog then Bravo/M 04 

N.QUIT:"{6,l,0,0}q 

Delete 04errlog @5errlog; Compiler -Alto/c -pause/c 04 05; Bravo/M 04; Bravo/M 05 

P.0UIT:"{6,l,0,0}q 

Delete 04errlog; Compiler -pause/c 04; Bravo/M 04 

Q.QUIT:"{6,l,0,0}q 

Delete 04orrlog 05errlog; Compiler -pause/c 04 05;Bravo/M 04; Bravo/M 05 

R.QUIT:"{6,2,0,0}q 



User-.cm 3-Nov-79 19:15:53 Page 



BRAVO/tl 84 



S.QUIT:"*q 

FTP Iris Storo/c 04 



T.QUIT;"'q 

FTP Iris store/s @4 S3>S4 



U.0UIT:"{6,l,0,0}q 

y 

Copy tomp.ts <- bravo .ts ;fJRAVO/d user. cm tenip.ts 



FONTiO HELVETICA 8 HtLVETICA 10 HELVETICA 8 
FONr:l HELVETICA 7 HELVETICA 8 HELVETICA 7 
FONT: 5 HELVETICA 12 HELVETICA 12 HELVETICA 12 

OFFSET; Standard offset = 4 

TABS: Standard tab width = 635 

LEAD: Line loadinfl = 6, Paragraph leading = 12 

NESTED: DeVta left = G35, De Lta right = 

SCREEN: Screen top = 25, System window end - 90, Screen bottom = 780 

MARGINS: Paragraph margin = 2998, Left margin = 2998, Right margin =20598 

[HARDCOPY] 

HOSI: Iris 

PliEFERREDFORMAT: PRESS 

PRESS: Daisy 

fRIMTEDBY: "Dal eKnutsen" 

EXTENSION: .mesa 

FONT: HELVETICA 10 MRR 

[CHAT] 

BELL: DING FLASH 

nORDER: BLACK 

FONT: GachalO.al 

LINEFEEDS: OFF 

TYPESCRIPT: Chat.ts 10000 

TYPESCRTPTCHARS: OFF ON 

[DOS] 

FONT: HolveticalO.al 

SMALLFOMT: sysfont.al 

CONTEXT: not ('.al or '.run or *. image or sys* or '.cm* or *. scratch" or dds* or swat* or bravo.*) 

FULLINIT: NO 

SELSPEC: « 

SORT UY: name, extension 

SHOW: si/e 

[TOOLS] 

filTMAP: [x: 64, y: 128, w: 478, h: 400] 

DEBUG: Mo 

ToolsFoMt: SysFont.al 

FUeHost : Iris 

F ileD i rectory: <Wpilot> 

[Librarian] 

Ser-vor: Marion 

Root: <CoPnot>Root 

NamePrefix: <CoPi1ot> 

NameSurrix: mesa 

BcdBiicket: [ Iri s]<Wp1 lot> 

DefauUCon tents Location: [Iris]<Wpi1ot> 

Limpets: poiiitsto 

Children: comprises <*> 

Levels: 2 

LevelSpacing : 32 

Inl.evolSpacing: 16 

NameThru: Yes 

Sideways: True 

[MAILCHECK] 

HOST: Maxc 

NEWMAIL: CHAT SH MSG.DO/D 

TIME: YES 

[EXECUTIVE] 

Font: Helvetical2 

eventBooted: Login // Hi, Dale! 

eventRFC: FTP // eventRFC 

eventlnstall : // eventlnstall 

eventAboutToDie: // eventAboutToDie 

eventUnknown : // eventUnknov/n 

eventClockWrong: SetTime // eventClockWrong 



AltoMoclo.mc 
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"Last Mod-ified by Sandman on February 23, 1979 11:36 AM 

cun.TUJ[str,ii]; 

SET[Arto}.|orJo, 1]; 
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• MicroD 8.11 (OS 16) of July 1, 1979 

• at 17-Oct-79 11:59:10 

INSERT[OccupiodDefs]; 

TITLE[BAHesaOccupied]; 

• Locations reserved on page 

IMRESERVE[0, 2, 75]; 

IMRESERVE[0, 156, 10]; 

IMRESERVE[0, 173, 4]; 

IMRESERVE[0, 300, 32]; 

• Locations reserved on page 1 

IMRESERVE[1, 0, 400]; 

• Locations reserved on page 4 



IMRESERVE[4, 0, 340] 

IMRESERVE[4, 341, 1] 

IMRESERVE[4, 345, 1] 

IMRESERVE[4, 351, 1] 

IMRESERVEr4, 365, 1] 

1MRESERVE[4, 361, 1] 

IMRESERVE[4, 365, 1] 

IMRESERVE[4, 371, 1] 

IMRESERVE[4, 375, 1] 

IMRESERVE[4. 377, 1] 



Locations reserved on page 5 

IMRESERVE[5, 0, 400]; 
Locations reserved on page 6 



■IMRESERVE[6, 0, 363] 

IMRESERVE[6, 365, 1] 

TMRESERVE[6, 371, 1] 

IMRESERVEie, 375, 1] 

IMRESERVE[6, 377, 1] 



Locations reserved on page 7 
IMRESERVE[7, 0, 400]; 

Locations reserved on page IIB 
IMRESERVE[11, 0, 366]; 

Locations reserved on page 14B 
IMRESERVE[14, 137, 241]; 

Locations reserved on page 15B 

IMRESERVE[15, 0. 376]; 
IHRESERUE[15, 377, 1]; 

Locations reserved on page 16B 

IMRESERVE[16, 0, 357]; 

END; 



QDMesaloccupied.mc 3-Nov-79 19:15:53 Page 



* Micr-oD 8,11 (OS 16) of July 1, 1079 

* at 17-Oct-79 11:09:37 

IMStRT[0ccup1edDefs]; 

TITLE[BDMesalOccupied]; 

* Locations reserved on page 

IMRESERVE[0, 100, 2331; 
IMRESERVE[0, 335, 23]; 
IMRESERVE[0, 361, 17"]; 

* Locations reserved on page 1 

IMRESERVE[1, 100, 2G6]; 

* Locations reserved on page 2 

IMRESEfWE[2, 100, 242]; 

IMRESERVE[2, 372. 1]; 

IMRESERVE[2, 374, 1]; 

IMRESERVE[2, 376, 1]; 

* Locations reserved on page 3 

IMRESERVE[3, 0, 307]; 
IHRESERVE[3, 370, 3]; 
XMRESERVE[3, 374, 3]; 

* Locations reserved on page 7 

IMRESERVE[7, 27, 1]; 
IMRESEIiVL[7, 76, 1]; 

* Locations reserved on page lOB 

IMRESERVE[10, 0, 363]; 

* Locations reserved on page 12B 

IMRESERVE[12, 0, 3/5]; 

* Locations reserved on page 13B 

IMRESERVE[13, 0, 305]; 

* Locations reserved on page 14B 

IMRESERVE[14, 0, 137]; 

* Locations reserved on page ICB 

IMRESERVE[15, 300, 1]; 

* Locations reserved on page 16B 

IMRESERVE[16, 0, 320]; 

* Locations reserved on page 17B 

IMRESERVE[17, 140, 40]; 
END; 
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* MIcpoD a. 11 (OS 16) of July 1, 19/9 

* at 17-Oct-79 11:11:10 

INSr^Rr[0ccupiodDofs1; 

TITLE[BDMesaOccupied]; 

* Locations reserved on page 

1MRFSERVE[0, 2, 22]; 

■n.!RESr.RVF_[0, 156, 10]; 

rMiU.Sni!VE[0, 173, 4]; 

IMREStRVEliO. 300, 32]; 

* Locations reserved on page 4 



IMr(ESERVE['4, 


0, 332] 




IMRLSEH\/E[4, 


335, 1] 




VMRESERVEr4, 


341, 1] 




IMR£SERVE[;4, 


345, 1] 




IHRESERVE[4, 


351, 1] 




IMRESEnVE[4, 


355, 1] 




IMREStRVEr4, 


361, 1] 




I(/|RESrRVE[4, 


365, 1] 




Il.tRESERVE[4, 


371, l] 




IMRtSERVE[4, 


375, 1] 




IMRE3ERVE|;4, 


3/7, 1] 




* Locations reserved 


on page 5 


IMRESERVE[5, 


0, 400]; 


' Locations reserved 


on page 6 


IMRESERVEfe, 


0, 324]; 


XMRESERVE[6, 


325, 2] 




JMnLSERVE[6, 


331, 3] 




XMRESrRVE[6, 


335. 3] 




IMRESFRyE[6, 


341, 3] 




IHRESERVEre, 


345, 3] 




IHRESERVEiG, 


351, 3] 




IMRESERVE[6. 


305, 3] 




1MRESERVE[G, 


361, 3] 




1HRESERVE[6, 


365, 1) 




TMRESERVEfe, 


371. 1| 




IMRESLRVEfG, 


375, ij 




IMRESERVE[6, 


377, l] 




* Locations reserved 


on page 7 


EMRESERVE[7, 


0, 360] 




IMRESFRVEt?, 


361, 1 




IMRESERVE[7, 


365, 1 




IMRESLRVE[7, 


371, 1' 




IMRESERVE[7, 


375, r 




1MRESERVE[7, 


377, 1] 




* Locations reserved 


on page IIB 


IMRESERVC[11 


, 0, 316]; 


* Locations reserved 


on page 140 


IMRESERVE[14 


, 137, 233]; 


* Locations reserved 


on page 15B 


IMRESERVE[15 


, 0, 372]; 


IMRESERVE[15 


, 377, 1]; 


* Locations reserved 


on page 16B 


IHRESERVE[16 


, 0, 357]; 


END; 
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insort[d01ang] ; 

NOMIDASINrT;lANGVt;RSIOM;MULTDID 

insei-t[G1oba'IDofsl; 

rxri.t[niTBLT]; 
7. 

* Last modified by Charuj 

* modi Tied Ijy Jolinsson, 

* liDTable format 



Septtimber 11, 1079 0:46 AM, in ternipts off problems 
June 28, 1979 8:50 AM 



WORD 



1 

l 

3 

4 

5 

6 

7 

10 

11 

12 

13 

14 

15 

16 

17 

20 

21 

22 

2 3 



NAME 
FUNCTION 
unused 
DBCA 
DBMR 
DLX 
DTY 
DW 
Dll 

SBCA 
SB MR 
SLX 
STY 
GrayO 
Grayl 
Gray 2 
G ray 3 

l-ongSourcol.o 
l-ongSourcoHi 
LonyDostLo 
LongDestlii 



bit Long BitbU; bits 14-17 function (see below) 



Destination BCA 
Destination BMl) 
Dost i nation LX 
Destination TV 
Destination W 
Destination II 
Source BCA 
Source BMR 
Source LX 
sSource TV 



Base Core Address of dest bit map 

Bit Hap vyidth in words 

Left X offset from first bit 

Top Y offset from first scan line 

Width in bits of bit map 

Height in scan lines of bit map 



These four words are the Gray Block 
CrayO is used on the first item, 
Grayl on the second, Gray2 on the third, 
Gray3 on the fourth, GrayO on the fifth, etc. 



Bit BLT functions 



MA, MB SALUFOP 












R OR T 


Src 


1 





1 


R OR T 


Src OR Dest 


2 





1 


R XOR T 


Src XOR Dest 


3 





1 


R AND notT 


notSrc AND Dest 


4 







R OR notT 


notSrc 


5 




1 


R OR notT 


notSrc OR Dest 


6 




1 


R XNOR T 


notSrc XOR Dest 


7 




1 


R AND T 


Src AND Dest 


10 







XXX 


(Src AND Gry) OR (nolSrc AND Dest) 


11 







R OR T 


(Src AND Gry) OR Dost 


12 







R XOR T 


(Src AND Gry) XOR Oost 


13 







R AND notT 


not(Src AND Gry) AND Dest 


14 







R OR T 


Gry 


15 







R OR T 


Gry OR Dest 


16 







R XOR T 


Gry XOR Dest 


17 







R AND notT 


iiotGry AND Dest 



interpretation of bbFunction bits 

00 mesa long pointer 

01 mesa called = 1 / nova called = 
02-05 unused 

06 bol lo top = 1 / top to bot =0 

07 r to 1 = 1 / 1 to r = 
10-12 which-innerioop index 

13 zero 

14-17 Bitblt function code 
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•dispatch tables Tor bitbit 

SF.T[n[i('lP,I.SHIFT[BDPl,l 
SEI| Bl3P;^P,LSIIlt-r[[iBP2,l 
SETIBRTI.A, AD0[BRP1P,1 
SETIBBILO, AD1)[BBP1P,1 
SET[BBILC, ADn[BBPlP,l 
SET[BBTLD, ADD[BBP1P,1 
SETiBBILE, AnD[BBPlP,2 



SET[BBII.DX, ADD[B8P1P,2 
SEr[bbI[Hsp,ADD[BBPlP,Z 
SET[BBF, ADD[BBPZP,3 

BBFA dispatch values 



oj]; 
oo]] 

20]] 
40]] 
00]] 
00]] 
20]] 
4 0]] 
.10]] 



SGt[BBNRM,7] 
sot[BBDST,6] 
set[BBSRC,5i 
setfBBBTll,4] 
sot[BBITH,3] 



sot[bl)ILtypeO, 
setj bblLtypel, 
set[bblLtype2, 
set[bbILtypo3, 
sct[bbIl.typG4, 



*no refill 

•destination refill 

*soiirce refill 

•source and destination refill 

•item refill 



00] 
02] 
04] 
OG] 
10] 
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% Initialization 

* * determination of bit bit directions 

* (top to bottom , left to right) dt.y < sty 

* (top to bottom , rigiit to left) (<Jty - sty) and (dix > six) 

* (bottom to top , left to right) ((dty ■ sty) and (dix •--< six)) 

* or (dty > sty) 
X 

0NI>AGE[3BP2] ; 

bbp2ret: return; 

*//***"•* Start of Alto Code '>**•»**••*»«****»***•**»»******•»«**«»**«««**» 
NovaBitOLT; *AC2,AC3 are a base register pointing to the OitBLT table 

ACO <- 21c, task; ' *Stl<p points to ICOM in AC! 

Stkp <- ACO; 

ACO <- Oc, goto[hbBi tBLT]; *ACO is the "entered from Nova" flag 
*//•**•«•• End of Alto Code **«•»«»««»******»•*******■«»*****♦*•******♦«*•* 

MesaOitBLT: 1u <- xfWDC; *T has address of table 
skip[ALU=0]; 

Hm <- (NWW) or (100000c); *disab1e interrupts in xfWDC/YO 
AC2 <■ T; 

r <- MDShi , task; 

AC3 ♦- T; "Long pointer to DitULT table in AC2,AC3 

ACO <- 40000C, goto[bb[iitnLT]; 

'"get hero when finished, witli tost of "entered from Mesa" flag pending 

bbKxi t: 

»7/»****** Start of Alto Code »•»***•*» t********** «.i.»««.>*»******«*«****4** 

dblgoto[bbMdone,bbNdone,ALlJ//0]; 
•//****•** End of Alto Code *****«**********«*******»».»*«**.»«»**.******« 

* bbHdone; loadpnne[4]; 

* stack?y-2, golop[MosaBt)rot"| ; 
bbMdone: stack&-Z, loadpage[4J; 

NWW <- (NWW) and not (lOo'oOOC), gotop[MesaDBret] ; 



*//*■•>"**■■■'■> start of Alto Code *«**«*«****«******»*«**««'i.*****»«****»«*«*»* 
bbNdoiin: loadpage[noPage]; 

Qotop[neNoskipl, FFie[17l; 
,//,«,**,„« tnd of Alto Code **■>*•*«*»«■*«*******«*««*«*•*»♦**«***»*.»*****» 

'common bitblt code 
bbBITBLf: 

pfetchl[AC2,bhFunction,0], cal 1 [bbp2ret] ; * fetch function 

pfetch2[AC2,bbRTEMslx,12],task;*fetch six and sty 

bbSrcQAddrLo *- zero ; 

pfotch2[AC2,bblUEMdlx,4J;*fetch dlx and dty 

t<(17c), task; 

t<-( lsh[ACO,l J)or(t); 

pfotch2[AC2,bbTtemWidth,6;], can[bbp2ret] ; *f etch dw and dh 

bbEunct ion* ( bbFunction)and( t) ; "Insure no garbage and mask bit if entered from Nova 

t»(AC0) ; 

task , bl3Functiori<-(bbFunction )or( t) ; ""called from Mesa" bit 

t <- ldf[bbFunction,14,2] ; 

iu <- bbltemWidth; 

liTEMP<- T ,skip[alu//0;|; 

lu < Idf [bbFunc t ion , i, 1], goto[bbrxi t"| ; 'Completion return - item width is zero 

RTEMP*-t; 

lu <- (RTEMP) xor (3c) ; 

skip[alu//0] ; 

goto[bbTB] , bbSrcQAddrLo ♦■ (Ic) ; *if function is 14-17, source not used, use tblr 

T <-■ bbRTEMdty; 

LU <- (bbRTEMsty) - (T) ; *calc sty - dty 

GOTO[ bbBT 1, a UK 0], freeze result; 
bbA3: GOrofbbTB , ALU//0] ; 
bbA4: r <- bbRTEMdlx ; 

LU ♦- (bbRTEMslx) - (T) ; *calc six - dlx 

DDLGOTO[bbrBRL,bbTBLR,ALU<0] ,t <- Stack; 
bbBTl: GOTO[bbBTLR] ,t *- Stack; *bottom to top , left to right 
bbTB; GOTO[bbTBLR] ,t *- Stack; *top to bottom , loft to right 
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for loft to right , top to bottom 
specific initialization 
sty sty I- icom 



bbTDLR; 



bbBTLR: 



bb[!TEMsty <- (bbRTEHsty) + (T); 
GOTOp[bbGonlIiiit.'],bb(iTEMdty <- (bbRTEMclty ) + (T) ; 

for left to I'iglit , bottom to top 
specific initialization 

task.T <- (bbltomsRemaiiiing) - (T) - 1 ; 
bbRTEMsty <- (bbRTEMsty) + (T) ; 
bbRTEMdty <- (bbRTEHdty) + (T); 
GOrOp[bbGon1InitJ,bbFunctiont(bbFunction)or(lOOOC);*set L to R bit 

for right to ioft , top to bottom 
specific initialization 

bbRTEMsty *■ (bbRTEMsty) •» (T) ; 

task, bbRTEMdty <- (bbRTEMdty) + (T) ; 

t ♦- bbRTEHsIx ; 

t *• (bbRfEMdlx) - (t); 

bbSDNonOvorlap <- t ; 

1u <- idfrbbSDNonOvcr1ap,0,12] ; 

skip[alu//o;|,bbMiniisSDNonOvoriap<-(zoro)-(t); 

goto[bbGen1 Ini t']; '"L to R if non-overlap < 100b 

lu <- 1df[bbItemWidth,0,l2] ; 

skip[ alii//0] ; 

gotojbbGonlTni t]; "L to R if item length < 100b 

111 <- (bblteniWidtb) - (t) ; 

ski p[ carry] ; 

goto[bbGonl tnit'l ; *L to R if item width < non-overlap 

GOTOrbbCenllnitJ , bbFiinction<( bbFunct ion )or(400C ) ;*R to L 
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* general initialization 

* caic ss 

* ss (lsli[4](sbca + (sty * sbmr)) i- six) 24 bits 

bbGenllni t: 

skip[r even] , Hi «■ bbSixQAddrLo ; 
goto[bbinnosrc], pfu tch2[ AC2 .bbDDCA, 2] ; 
|)rotch2[AC2,bbSBCA,10| ;*retch sbca and sbmr 
goto[bbLongSrcGet , r<0], lu<^bbFunct ion ; 
bbShortSrcGet : 

t<-bbSBCA; 

can[bbp2i-Gt],bbSrcQAddrLo«-ti 

golo[bbSrcInitJ ,bbSrcQAddrlli<-(zero) ; "short form set up 
bbl.on(]Si'cCet ; 

t<-20c; 

cail[bbp2ret;j,pfetch2[AC2,bbSrcOAddrLo]; •long form set-up 

*T «- sty * sbmr. The product is =< 16 bits 
bbSi'cInit : 

T <- bbSBMR; 

RTtMP <- T; 

r <- Oc, cailCbbSrcMuil; 
bbSrcMul: RTEMP <- rsh[ RTEMP , 1] , goto[ . +2 , Reven] ; 

r <- (hbRIEMsty) + (f); 

bbRTEMsty <- lsh[bbRTEMsty , 1], goto[.+2, ALU=0]; 

return; 
bbSrcMulDono: 

bbSrcQAddrLo*-(bbSrcQAddrLo) + (t) ; 

sk ipf nocarry] , t<-l sli[bbSrcQAddrLo , 4 | ; "move SrcQAddr to SrcStartBit 

bbSrcQAddrMit-(bbSr(;QAddrlli)-i-l; 

hbSrcStartBitl.o«-t; 

t« rsh[bbSrcOAddrl.o,14 |; 

task , t<-( 1 sh[bbSrcQAddrlli , 4"J) h( t ) ; 

bbSrcStartCi Llli«-t; 

t< bbRiEMs1x;*add six to SrcStartDit 

bbSrcStarll3itLot-(bbSrcStartUitLo) + ( t) ; 

skip[ nocarry], bbSrcQAddrLo< (bbSrcQAddrLo)and not (3c); 

bbSrcStartBitlli<-(bbSrcStartBitlli)-i-l; * SrcStartBit now conipiota 

* caic ds 

* ds (lsb[4](dbca + (dty * dbnir)) + dlx) 24 bits 
pfetch2[AC2,bbDBCA,2];*fetch dbca and dbmr 

bbinnosrc : 

goto[bbShortDestCet , r> = 0] , iu^bbl-unc t ion; 
bbl-ongDestGot : 

t<-22c; 

goto[bbDestTnit],pfotcli2[AC2,bbDostOAddrLo|; 
bbShortD(3stGet: 

t< bbDBCA; 

task , bbDGStOAddrLo<-t ; 

bbDestQAddrlii<( zero) ; 'short form set up 
*T <- dty * dbmr. 16-bit pi'oduct 
bbOestlnit : 

r <- bbDBMR; 

RTEMP *- T; 

T •- Oc, cail[bbl)estMu1J; 
bbDcstMui: RTEMP <■ rsh[ RTEMP , 1] , goto[.^2, Reven]; 

T ^ (bbRTEMdty) + (T); 

bbRTEMdty <- ish[bbRTEMdty , 1], goto[.+2, AI.U-0]; 

return ; 

bbOestMuiDone: 

bbDestOAddrLo«-(bbDestOAddrLo) + (t) ; 

skipfnocarry], t< i sh[bbDcstOAddrLo,4] ; *movo DestQAddr to DestStartBit 

bbDGStOAddrHi<^(bbDestQAddrlli)-i-l; 

bbDestStartBitLo<-t; 

goto[ . + l],t*-rsh[bbnostQAddrLo,l4]; 

t* (1sh[bbDestOAcldrlii ,4 ]) + (t) ; 

task, bbDcstStartCitHi<-t ; 

t< bbRTEMdlx; *add dix to DestStartBit 

bbDestStartDitLo<-(bbDostStartBitl.o) + (t); 

skip[nocarry] , t <- bbltemWidth; 

bbDestStartBitHi<-(bbDestStartBitHi)-U;* DestStartBit now complete 

bbMinusItemWidth <- (zero) - (T) ; *want minus item width 

* test for specific initialization (bottom to top) 
1u<-idf[bbFunction,B,l] ; 
goto[bbILXO,a1u=oi ; 

* tins will go to bbilxO if t to b 

* or bbilxl if b to t 

bblLXl: t <• bbSBMR ; 

task.bbSBHR ♦- (zero) - (t) ; 

t t- bbDBMR ; 

bbDBMR «- (zero) - (t) ; 

bblLXO: 

T <- (Stack); 

bbltemsRemainingMinusl <- (bbltemsRemaining) - (T) ~ 1 ; 

skip[a1u>=0] , bbrtomsRemainingMinus2 <- (bbltemsRemainingMinusl) - 1 ; 

lu *- idf[bbFunction, 1,1], goto[bbExit] ; *Compiotion return - no items remaining 

bbGrayCnt <- T ; 

skip[r even] , 1u «■ bbSrcQAddrLo; 

goto[,+2] , SB «- bbOestStartBitLo ; 

SD ♦- bbSrcStartBitLo ; 

task,DB «- bbOestStartBitLo ; 

MNBR *- bbMinusItemWidth; 

bbfd: DISPATCH[bbFunction, 14,4] ; 

DISP[bbFUNOO] ; " ' 

* win dispatch to bbfunN for function N 
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LbfUNOO: 
bbFUNOl; 
bbFUNO?.: 
bhFUM03; 
bbrUN04; 
bblUnOG; 
bbfUNOG: 
bbFUN07: 
bb.'-UNlO: 

bbRJNll: 

bbFUNlZ 

bbFUN13 

bbFUN14 

bbFUNlO 

bbFUNlG 

bbFUNlV 



goto[ 

Goro[ 

GOTO[ 

Goro[ 

GOTO[ 
GOTOi; 
GOTO[ 
GOTO[ 



goto[ 
GOt.o[ 
goto[ 
go to[ 
f!Oto[ 
gotoi 
got,o[ 
goto[ 
t <- ( 

bbLndIni 
T <- ( 

bbEiidIn i 
T ^ ( 

bbtiidini 

r <- ( 

bbEiidIn i 

T V ( 
bbEndlni 

!• <• ( 
bbEnd Ini 

T <- ( 
bbEnd til i 

T ♦■ ( 
bbEiidln 1 



dinit] 
din it] 
din it] 
dliiil] 
dInit] 
dill it] 
dlnit ] 
dliiit] 
) , AT[DBF, 

bbFunction 
) , Ar[i:jBF, 

bbFiinct ion 
) , AT[nBF, 

bbFunction 
) , AT[BnF, 

bbFunction 
) , Ar[BBF, 

bbFunction 
) ,.AT[BliF, 

bbFunction 
) , AF[BBF, 

bbFunction 
) , AT[BnF, 

bbFunction 



(201C) 



AT[BBF,0] 



Ar[BBF,l 
AT['BBF,2 
AT[BBF,3 
AT[B0F,4 
AT[BBF,5 
AT[B»F,6 
Ar[BBF, / 



(304C) 
(363C) 
<- (32 7C) 
^ (074C) 
*- (104C) 
>- (IS.SC) 
«- (150C) 
10] ; 

<- (bbFunction) OR 
U] ; 

<- (bbFunction) OR 
1?] ; 

<- (bbFunction) OR 
13] ; 

<• (bbFunction) OR 
14] ; 

*- (bbFunction) OR 
15] ; 

♦- (bbFunction) OR 
10] ; 

<- (bbFunction) OR 
1/] ; 

<- (bbFunction) OR 



] 
] 
] 
] 
] 
J 
] ;*s 

"sal 
(40C) 

*sa1 
(lOOC 

*sa'l 
(lOOC 

*sa'l 
(lOOC 

*sa1 
(ZOOC 

'"sal 
(140C 

*sa1 
(140C 

•sal 
( 140C 



aiufo 
al uf o 
alufo 
alufo 
alufo 
aiufo 
alufo 
alufo 
ufop 

ufop 

) ; ' 

ufop 

) ; ■ 

ufop 

) ; ' 

ufop 

) ; ■ 

ufop 

) ; ■ 

ufop 
) ; * 
ufop 

) ; * 



<■■ [n 

<- [1 

'- [1 

- [1 
<- [0 

^ [I 
^ [1 

- [1 

[x,0 
type 1 
t- [1,0 
typa 2 
<- [1,0 
type 2 
<- [1,0 
type 2 
*- [0,0 
type 4 
*- [1,0 
typo 3 
<• [1,0 
type 3 
<- [1,0 
type 3 



, , r or t ] 
, , r or t ] 
, , r xor t] 
, , r and not t] 
, 1 , r or not t] 
, 1 , r r t ] 
, 1 , r xnor t] 
, 1 , r and t] 

• x] 

transfer 
, r or t] 

transfer 
, r xor t] 

transfer 
, r and not t] 

transfer 
, r or t] 

transfer 
, r or t ] 

t ransf er 
, r xor t ] 

t ransf or 
, r and not t] 

t ran s for 



bbEndTnit ; 

l.OADPAGE[BBni] ; 
GOrOP[bbFirstItom],saluf 
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OHPAGC[f)nPi;| ; 
Iiiiior loops 

functions 0-7 



bblnnorLoops ; 
bblLAlZ: 

call[. + i;] , AT[Dr!IDISP,bbIl.t.ypeO] ; 

D[)LGOrO[bbILA2,bbnAX,MD] , 

T < (m3FA[SB[bbS0URCFi"J) or (t) ; 
bbTLAZ; DISPIbblLAr] , l)B[bbDEST'] <- (t)nFnX[Dn[bbDESTyi ) SALUrOP (T) ; 
bblLAX: DISPIbbllAl] , DBlbbUKST] *■ (BBFB[DB[bbDf.Sl J]) SAl.UFOP (T) ; 
bblLAl; roturn , AT[DBILA, BBNRM] ; 
7o bbi1a2 w il 1 go to 

' bbHal no refill required 

* bbilas source refili required 

* bbiiad doat refill required 

* bbiiasd source and dost refills required 

* bbiiai item rofiil required 



% 



function 10 



bblLBl; 

ca1i[.H"| , AT[BBIDISP,bbILtypol] ; 
T <- ('DDFA[SD[bl)SOURCE]i) or (t) ; 
bblLBZ; DISPfbblLBSl , RTFMP <- T ; *0 copies of the foi lowing code are 

*re!|uired to save the dispatch data 
*from the BBFA executed pi'evious1,y 



bbi Ib2 wii I go to 
bb1ib3 
bbi1b3s 
bbiibSd 
bbilb3sd 
bbiib3i 



no refill required 

source refill required 

dest refi 1 1 requi red 

source and dest refills required 

item I'ofill required 



7o 

bbILB3: DB[bbDtST"| (- (DB[bbDEST]) AMD NOT(T) , AT[BBILB , BBNRMJ ; 

T <- RTEMP" ; 

T < (bbGRY) AND (T) ; 
bbll.BG: return , DB[bbDEST] <- (BBrB[DB[bbDESr]]) OR (T) ; 

bbILB3S: DB[bbDES"r] <- (DB[bbDEST]) AND NOT(T) , AT[BBILB, BBSRC] ; 
r <- RTEMP ; 
r <- (bbGRY) AND (T) ; 



bblLBGS 
bbILB3D 
bblLBGD 
bbII.B3S0 



GOTO[bbII-BS] , DB[bbDEST] <- (BBFD[Dn[bbDEST] ]) OR (T) ; 

DB[bbDEST] »- (OB[bbDEST]) AMD NOT(r) , AT[BBILB , BBOST] ; 
call[bbtgry],T <- RTEMP ; 

GOTO[bbILBD] , DB[bbDEST] <- (BBFB[D8[bbDEST]"|) OR (T) ; 



DB|;bhDEST;] <^ (DB[bbDEST]) AND NOT(T) , AT[BB ILB, BBBTH] 
cari[bbtijry 1,T *- RTEMP ; ' 
bblLBGSD: GOToibblLBSD J , DB[bbDE3T] <- ( BBFB[DB[bbDESr]3 ) OR (T) 

bbTI.B3T: DB[bbDEST] <^ (DB[bbnEST]) AND NOT(T) , AT[BBILB ,BBf TM] 

cal l[bbtqry"|, f <- iiTEMP ; 
bblLOGi: GOTOrbblLBT] , Dn[bbDEST] - (BBFB[DB[bbDEST]]) OR (T) ; 
bbtg ry : 

r ^ (bbGRY) AND (T), roturn ; 
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* functions 11-13 

bblLCl: 

call[, + l] , Ar[BnTDIS[',libILt.ypo2] ; 

r «- (BDI-A[SB[bbSOlJRCE]i) or (t) ; 
bblLCZ: DISP[bblL€3| , T <- (obGRY) /\ND (T) ; 

bblLCG: return , DBtbbDEST] <- (rinFDX[DD|[bbDEST]]) SALUfOP (T) , AT[f5aiLC ,BBNRM] 

7, bb i 1 c2 will go to 

* bbi1c3 no lefill i-cqu i red 

* bbilc3s source redll required 

* bbilc3d dest refill required 

' bbilcSsd source and dest I'efills required 

* bbi1c3i item refill required 



functions 14 



bblLElx: 



call[.+l] , AT[DBIDISP,bbILtype4] ; 

T <• (RBrA[AnOnes"J) ; 
bbILF.3; D[SP[bbILF4] , T <^ (bbGRY) and (t) ; 

bbILE4; return , Df![bbDEST] <- (aDrQ[Dn[bbUF.ST;]]) SALUFOP (T) , AT[BBILE, BBNRM] 
7o bbi1e3 will go to 

* bbile4 no refill required 

* bbi1o4s source refill required 

* bbile4d dest refill required 

* bbile4sd source and dest refills required 

* bbilo4i item refill required 



* functions 15-17 

bblLOl: 

caH[,H] , ATrBDIDISP,bbILtype3] ; 

T < (!BFA(AI lOnes] ; 
bb[LD3: DlSPlbb 11.1)4] , T <- (bbCRY) AND (T) ; 

bbILD4: return , DB[bbDEST] ^ (BBFBX[DB[bbDEST]] ) SALUFOP (T) , AT[BBIl.D , BBNRM | 

7, bbi1d3 will go to 

* bbild4 no refill required 

* bbild4s source refill required 

* bbild4d dest refill required 

* bbild4sd source and dest refills required 

* bbild4i item refill required 



BitBlt.mc 



3-N0V-79 19:16:53 



Page 



♦SourcG refin 

bbSourceRef i 11 ; 

bblLUS: 

bblLAS: DBLGOTO[bbHoSrcFetch , 



bbILC3S 
bbILD4S 
bbILE4S 



G0T0[bbSourceRGfi11 
GOTO[bbSourcer(uri rr 
GOTO[bbSoiirce(ierin] 



>bSrcFotcb,R ODD] , bbSrcQAddrl.o 



bbSpcQAcldrLo) > (4C) , AT[BniLA,DBSRC] 
DB[bbDESTJ <• (BBFBXf DB[bbOEST |] ) SAI.UFOP (T) , ATfOBILC, BBSRC] ; 
DH[bbDEST] ♦• (BBFOX[Dn|bbDESTi I ) SALUFOP (T) , AT[BUILO,BBSnC | ; 
DB[bbOESr] »- (BBFB[DB[bhDESr]]') SALUFOP (T) , AT[l!BILE ,BBSRC] ; 



bblLret: 
bbNoSrcFetch: 

return ; 
bbSrcFetch: 

rjo to[ . +3 , nocarry] ; 

bbSrcOAddrHi<-(bbSrcQAddrlli) + (400c)H; 

nop;*r,an't load h1 base rog 1n m-1 preceding a memory operation 

PFFTCH4[bbSrcQAddrLo,bbS0URCE,0] , raturii ; 

•Dest refill 
bbDostRcf 111 : 

nop; 
bbDostRof illx: 

GOrO[bbDt!StFGtch] 



bblLBD: 
bbFLAD; 
bbIL,C3D 
bbILD4D 
bbILE4D 



PST0RE4[bbDestQAddrLo , bbDEST , 0] ; 



GOrO[bbDustRof illx] , AT[BBILA,BBDST] ; 
GOTO[bbDostRef ill] , DB[bbDEST] 
GOTO[bbDGStRofiri] , DnfbbDEST] 
GOTOibbDestRefiri] , DB[bbDEST] 



(nBFBX[DB[bbDEST]]) SALUFOP (T) 
(BBFBXfDBfbbDEST]]) SALUFOP (T) 
(BBFB[DB[bbDEST]]) SALUFOP (T) , 



, ATIBBILC.BBDST] 
, AT[BBILD,BBDST] 
AT[BnU.E,BBDST] ; 



bbDes tFetch: 

bbDostQAddrLo «• (bbDes tQAddrLo) h {4C); 

goto[ . +3, nocarry]; 

bbDestOAddrHi<-(bbDestQAddrHi) 4400c) H; 

nop;*cnM't load hi base rcg in mi precedinrj a memory operation 

goto[bb ildispj , PFETCII4[bbDcstOAddrLo , bbDEST, 0] ; 
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* Sourco and Dest rofill 

bbSrcDestRef n I ; 

bhILUSD: 

bbTLASI): 

bbILC3SD 

bbII.D4SD 

bbtLE4SD 



DnLCOTO[bbDestRef m .bbSrcDestFetcl- 
GOTOfbbSrxDestRor il 1] , DB[bbDEST; 



GOTO[bbSrcDestltef ill] 
GOTO[bbSrcDGStRof ill] 



, R ODD] , bbSrcQAddrLo <- ( bbSrcQAddrLo) *• (40) , AT[nBILA , CBBTII] 
- (nB[BX[;DD[bbDF.ST]]) SAI.UFOP (T) , AirBBILC .BBBTHl ; 



DBi;bbDt:sr] <- (BBFRXIOOrbbORST]]) SALUfCP (T) 



DB[bbDEST] 



[nBKB[OB[bbDEST]]) SALUFOP (T) 



, AT[BBILD,BBaTII] 
AT[BBI1J:,BBBTH]' ; 



bbSrcDostFetch: 

go to[ .+3 , iiocarry] ; 

bbSrcOAddrHi<-(bbSrcOAddrlli) + (400c)H; 

nop;*can't load hi base reg In nt-l preceding a niuiiiory oporation 

PFETCH4[bbSrcOAddrLo,bbSOURCE,0] . goto[bbDestl!Gf il 1] ; 
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• Common return to Innor 


I0C 


ips 




bblLDISP: 










canrbblLrot"! , 


BBFB ; 








DISI'ATCII[bbFunc 


;tion,10, 


4] 


; 




DISP[bblMiiorLoo 


'Ps] ; 








% 


deponcii 


ng 


upon 


tlio loop typa ti 


* type 


bbilalJ 






runction 0-7 


* type 1 


bbUbl 






function 10 


* typo 2 


bbilcl 






runction 11-13 


* typo 3 


bbildl 






function 15-17 


* type 4 


bbilelJi 






function 14 



this will go to 
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Item refill 
3f ill: 



test if right to left or left to right 



bhltemRo 

hi) I LOT: 

LiblLAI: GOTO[b!)ILI] , Ui< 1 dr[hbFunctioii , 7 , 1] , AT[BBILA,BniTM ] 

bbIl,C3t: ■ GOTOibbltemRef ili'l , DB[bbDEST"l '" " 

bb;[LD4I: GOrO[bhItomRofiir] , DD[bhDEST] 
bbILE4I: GOTOfbb [ tcmRefil 1 ] , DB[bbDEST] 



(BBrBX[DB[bbDESTl]) SALUFOP (T) 
(BBFBX[DR[bbDESr j]) SALUFOP (T) 
(8BFn[Dn[bbDESr] I) SALUFOP (T) , 



, Ar[BBILC,BBtTMl 
, AT[BBILD,BBITMi 
AT[BBILE.Bl!ITM]' ; 



bblLI: goto[bbContRtoL,alu//0] 
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♦ cominon item refill 

bbComlteniRef ill : 

pstoren[l)bDestQAdclrLo,bbDEST,0] ; 

can[bbiLrGt],staclc *■ (stacl<) + 1 ;*iipdat'e icotn ( TOS ir caliecl by Mesa, ACl if called by Nova) 

G0r0[.+3,R >- 0] , bbltemsneniainingMiiiusZ <- (bbl tcmsRemainingM inus2) - 1 ; 
bbExitpl: LoadPane[bbp2]; 

111 ♦■ 1dr[bbl'unct ion, 1, 1], gotop[bbExit] ; *Coinp1et1on CGtiirn 
♦Test for interrupts 

111 <- NWW,skip[R> = 0|; 

dbigoto[bbDestUpdate,bbSrcUpdate,n ODD], 1u«-bbSrcOAddrLo; 'Interrupts disabled by Hova 

sltip[ALLI//0], lu <- IdflbbFunction,!,!]; 

db1(]oto[bbDostUpdate,'bbSrcUpdate, R ODD], Ui*bbSi-cOAddrLo; 
♦//***••*■* Start of Alto Code •>••**•*«*»**♦****«•**«*****•*****»********** 

dblfjoto[bbMosaIiit,bbNovaIiit ,ALU//0]; 
•//•**••♦* End of Alto Code **•.*««**♦....*..*♦*.**.**♦.*****.«.*»«..*♦***. 

bbHosaInt: l.oadPago[opPage3] ; 

T (- Ic, canp[MIPend]; •bacl<. up the Mesa PC by 1 
dblgoto[bbDostUpdate,bbSrcUpdate,R ODD], 1 u«-bbSrcQAddrLo; 

"Since v;e arc now in a subroutine, and since the Nova only 
'"cbecks for interrupts at buffer rofill and during Jumps, 
•things are complicated. We simulate a JMP ;+0 

*//*««.*.,.* start of Alto Code *«**"*i'***«***"**««***»*****»****»"** *•** 
bbNovaXnt: T <- 1 df [GETRSPnc[127] , 15 , 2] ; 

LoadPa<)e[nePage]; *Point tlie jump-to PC at the UitDLT 
T <- (PCB) I- { T) , gotop[JMP]; 
*/,,,,,,,* f,,^ of /yvto Code *•****»*...».*.«•.«.**«♦*»*****«*■»*•****«•****• 

bbSrcUpdate: 

slcip[r> = 0].l «■ lshrbbSnMR,41 ; 
bbSrcStartUitlli'-(bbSrcStartBitHi)-(20c); 
bbSrcStartOitLo *■ (bbSrcStarlB i tLo) + (t) ; 
sk1p[nocarry], t<-rsh[bbSBMR, 14] ; 
bbSrcStartCitlli <- (bbSrcStartBi tlli ) + 1 ; 
bbSrcStartBitlli <- ( bbSrcStartBi til i ) + (t); 

bbDestUpdate : 

skip[r> = 0],t <- lsb[bbDBMR,4] ; 
bbDestStartBitlii«-(bbDostStartBi tlli) -(20c); 
bbDostStartB itLo <■ ( bbDes tSlartBi tLo) ^ (t) ; 
skip[nocarry], t<-r5h[bbOBMR, 14]; 
bbDestStartUitll i *- (bbDes tStartBitlli ) + 1 ; 
bbDestStartBitlli <- (bbDestStartBitlli ) + (t); 

bbFirstltem: 

bb TouchSoui-cePages : 

call [bbU. ret]; "task switch 

GOrO[bbTouclii)i!StPages,R ODD] , lu«-bbSrcQAddrLo ; 

t«-(bbMinusItemV/idth) H; 

RTEMP«-(zero)-(t); 

can[bbSetbbSOA]; 

t<-(bbSrcStarlBitLo) and not (170000c); 

RTEHP<-(RT!;MP)i(t); 

skip[carry],RTEMP<-rsh[RTEMP, 14]; 

goto[bbTS'Pl]; 

skip[alu//0]; 

RTEMP^^(20c); 

bbTSPl: 

t<-RTEMP<-lsb[RTEMP,10]; 

cal 1 [ . H] ; *avoid mem pass-around 

pfetch4[bbSrcOAddrLo,bbSOURCE]; 

t<-RTEMP^(RTEMP) (400c) ; 

skip[alu<0]; 

return; 

nop; 

bbTouchDcstPages: 

t«-(bbMinusIteniW1dth) H; 

RTEMP«-(zoro) -(t); 

can[bbSetbbDOA]; 

t<-(bbDestStartBitLo) and not (170000c); 

RTEMPt-(RTEMP) + (t); 

skip[carry],RTEMP^rsh[RTEMP,14]; 

goto[bbTDPl]; 

skipfaluffO]; 

RTEMP<-(20c); 

bbTDPl; 

t«-RTEMP<-isli[RTEMP,10]; 

can[ . + 1] ; 'avoid mem pass-around 

pfetch4[bbDestQAddrLo,bbDEST]; 

t<-RTEMP<-(RTEMP)-(400c); 

skip[alu<0]; 

return; 

bbNewGry: 

lu<-1df[bbFunct ion, 14,1]; 

goto[bbNoGray,alu=0],MNBR «- bbMinusI temWidth ; 

t«-(AC2) + (14c) ; 

lu <- ldf[bbFunction,l,l]; '"called from Mesa" bit 

dblgoto[NovaGray,MesaGray,ALU=0], tt-(ldf [bbGrayCnt , 16, 2])+(t) ; 
NovaGray: pf etchl[Nova,bbgry] , goto[.+2]; 

MesaGray: Pf etchl[MDS, bbgry] ; 

bbGrayCnt^(bbGrayCnt)+l; 
bbMoGray: 

SB*-bbSrcStartBitLo; 
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sk ip[ r even] , 1u< bbSrcQAcldrLo 
SB <- bbDGStStartDitLo ; 
DD<bbDGstSlartB1tL.o; 
111* 1df[bbh'unction,7,l] ; 
skipfa1u//0] ; 
GOTOibblLDISP] ; 
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bbNcwRtoL: 'now item right to left 

t< bbM inusSDNonOvorl ap ; 

task , bbHinusMumni tsTran<-t ; 

t<-MNnR^bbMiiuisNuinOitsTran ; 

t<-(bbMinusIteiiiWi(Jth)-(t) ; 

cal 1 [hblLf-et], bbM (MusBltsRefnain ing ♦-t; 
bbSourceBitUpdate ; 

goto[bbDes tBilUpdate, r ocldl , lu^bbSrcQAdclrLo ; 

bbSrcStartOitLo ♦- (bbSrcStartO itLo) - (t) ; 

skip[nocarry] ; 

bbSrcStartBi tin <- (bbSrcStartBitK i ) + 1 ; 

RTEHP^-t; 

can[bbSetbbSOA]; 

t*-l!TLMP; 

,SD*-bbSrcStartBitLo; 
bbDestB itUpdate: 

bbDestStartBitLo *- (bbOestStartB itLo) - (t) ; 

sk ip[nocarry] ; 

bbDestStaitBitlli < (bbDostStartBitll i ) ^ 1 ; 

goto[bbGetNoxtSubXtem] ; 

bbContRtoL; "continue item right to loft 

t *- bbMlnusB i tsRemainiiig ; 

skip[alu//0] , III < (bbMiiuisSDNonOvcrlap) - (t) ; 

GOTO[bbConiileiiiRori I I ] -.'"current i torn exhausted 

skip[nocarp,y ],PSTORE'l[bbDostQAddrLo,bbDEST,0]; 

t <■ bbMinusSDNonOvorlap ; 

bbM inusNuiiiBi IsTraii <- t ; 

task , bbMinusB i tslioina in ing <- (bbM inusB itsRoriiain ing ) - (t) 

innbr <- bbM inusHuiiiBitsTran ; 
* adjust source and dest bit addresses for next sub -item 

goto[bbr1 skip, r odd] , lu<-bbSrcQAddrl-0 ; 

t < bbMinusNuinB i tsTran ; 

bbSrcStartBitLo <- (bbSrcStartBi tLo) + (t) ; 

skip[ carry] ; 

bbSrcStartBitlli <■ (bbSrcStartB i tlli ) - 1 ; 

can[bbSetbbSQA]; 

SB<-bbSrcStartRitLo; 
bbri skip: 

t <- bbMinusNuinBitsTran ; 

bbDestStartBitLo ♦■ (bbDestStartBitLo) + (t) ; 

skip[carry] ; 
bbDestStartBitlli <- (bbDestStartBitlii ) - 1 ; 
bbGetNcx tSubl teni: 

can[bbSotbbDOA]; 

skip[r even] , 1 u< bbSrcQAddrLo ; 

SB <- bbDestStartBitLo ; 

DB<-bbDestStartBitLo; 

prel.ch4[bbDostOAddrLo, bbOEST.O] ; 

skipf R ODD] , Ui <- bbSrcQAddrLo ; 

plelch'HbbSrcOAddrLo.bbSOURCE.O] ; 

GOrO[bbILDISPi ; 



OitDlt.mc 3 -Nov- 79 19:16:53 Page 16 



bbSetbbSQA: *build source meni-baso from source bit 

t*-rsh[bbSrcStartDULo,4] ; 
bbSrcOAddrl.0 ♦- t ; 
t<lsh|bb3rcStartBitHi, 14] ; 
bbSfcOAddrLo ♦- (bbSrcQAddrLo) + (t) ; 
t,<- rs hf bbSrcSta r tS i til i , 4] ; 
bbSrcQAddrHi <- t ; 

bbSrcOAddrHi<-(lsh[bbSrcOAddrHi ,10]) ■^■ (t) (• 1 ; 
return, bbSrcQAddr-Lo <■ (bbSrcQAddrLo) and not (3c) ; 

bbSetbbDQA: "build dest inmn-base from dest bit 

t<-rsh[bbDestStartBitLo,4] ; 
bbDostQAddi-Lo ♦- t ; 
t< "IshlbbDostStartDitlH ,14"| ; 
bbDestOAddrLo *• (bbDestQAddrLo) + (t) ; 
■l*-rsli[bbDestStat-tBitlli ,4] ; 
bbOes tOAddrHi <- t ; 

bbDor,tQAddi-lli<^(1sh[bbDestOAddrlli,10]) + (t) + 1 ; 
return, bbDestQAddrLo <- (bbDestQAddrLo) and not (3c) 

end|;bb]; 
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* HicroD a. 11 (OS 16) of July 1, 1979 

* at 17-0ct-79 11:07:40 

IMSERT[0ccup1oclDofs;); 

TirLF.[BMesalOccupietl]; 

* Locations roservecl on page 

IMRESERVE[0, 100, 233]; 
IMRESERVE[0, 335, 23'J; 
IMRESERVC[0, 301, 17]; 

* Locations reservorJ on pago 1 

IMRFSERVE[1, 100, 253]; 

* Locations I'oservod on page 2 

IMRESERVE[2, 100, 226]; 

XMRESERVE[2, 340, 1]; 

XMRESERVE[2, 372, 1]; 

IMI)ESERVE[2, 374, 1]; 

1MRESERVE|;2, 370, 1]; 

"■' Locations resorved on page 3 

IMRESERVEr3, 0, 336]; 
IMRESERVE[''3, 370. 3]; 
:I:HRESERVE[3, 3/4, 3]; 

* Locations reserved on pago 7 

IMRESERVE[/, 27, 1]; 
TMRESERVEi7, 76, 1]; 

* Locations reserved on page lOB 

IMRESERVE[10, 0, 363]; 

* Locations reserved on pago 12B 

IMRESERVE[12, 0, 375]; 

* Locations reserved on pago 13B 

IMRESERVC[13, 0, 305]; 

* Locations reserved on pago 14B 

1MRESERVE[14, 0, 137]; 

* Locations reserved on page 15B 

IMRESERVE[15, 300, 1]; 

* Locations reserved on page 16B 

IMRESERVE[16, 0, 312]; 

* Locations reserved on page 178 

1MRESERVE[17, 140, 40]; 
END; 
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* DOLang.mc 

•l.ast edited: July 2, 1979 5:10 PM by Chang, add IMUNRtSSIWE , GoExt 

* edited: June 27, 1979 10:52 AM by Jolinsson 
» edited: April 23, 1979 3:05 PM by Jarvis 

• edited: December 16, 1978 2:16 PM by CPT 
BUILTIN[Mi3,2]; •Declare macro 

DU1I.TIN[N@,31; *Dec1aro neutral 

t!UILTIil[MF.MORY0,'l]; *Dec1nro Memo ry[ name .words ize , long tli , s rciiiac no, 

*s inkmacro , taginacro ,postiiiacro] 
bUILTIN[TARGET0,S]; 
BUILfIN[DEFAULr0,6i; 

BUn.TIN[ILX0,7]; *Doc1are field 

DUlLTIN[Pr0, 10]; '"Proassign value to field 

DLIILTIN[SET,11]; 'Declare integer and set value 

BUXLTIN[ADD,12 ]; "Add up to 8 integers 

BUILTIN[IP,13l'; *Tntogor part of address 

BUILTIN[TESEQ',14]; *If string equal ( IFSE0[sl, s2 , t rue , f al se]) 

BUILTIN[IFA0,15]; *If field assigned ( irAa[f ield , true , false]) 

BUIl.TIN[lf'r-@,lG]; *If integers equal 

r!UII.TIM[TrG@,171; *If integer 1 > integer 2 

nuil.TIN[IDF@,20]; "If symbol in symbol table and not unbound address 

*BUIL.T1N(IFMEQ,21] ; *If memory part of address equals string 

BUILTlN[Fn@, 22]; "Error message (ER8[st ring , abortfi ag , integer]) 

BUCLTINf I.1ST0,23]; *Sut listing mode for memory 

BUILTINilNSERT0,24]; "Insert file 

BUILTIN[N01S,25]; *1'S complement 

RU1I.TIN[REPEAT@,26]; *Repeat the text //2 //I times 

nuiLTIMrORS, 27]; ' "Inclusive or up to 10 integers 

DUILTINf XOR0,3O]; 'Exclusive or up to 10 integers 

UU1LT1N[AMD(D,31]; *And up to 10 integers 

nUlLTINlCOMCIIAR0,32]; "Set comment char for conditional assemblies 
*BU1I-11N[BITIADL£@,33]; "Hakes //I a bit table of length 172 bits 
«BIJIL1IM['GETBIT0,34];' "Is the bit in bittablo in at pos . 117. 
•BUILlINiSEFBI10,35]; *SETBI1[ tabl e , Istb it , nbits , d i stance , vaUio] 
*BUILTIfJ[FINDBrr@,36i; " FIHDB1T[ TABLE© , ISTB 11 , MB US .DISTANCE , IIOPDISIANCE , fJIIOPS] 
•BUILTlH[HrMO10,37]; *MKMBT[memory , tabl e] creates a bit table for memory 

nUILTlN[LSllIFT,40]; "Shifts the integer //I left //2 positions 

BUILTlH[RSHIFT,4l']; "Sliifts the integer III right HZ positions 

BUTLTIN[FVAl.@,42]; *FVALQ[ f i el d] is an integer v;hoso value is the 

"current contents of the field 
RUILTIN[SELECT@,43]; *//l is an integer .ge. and .1e. 7. evaluates 

*//2 if //I = Hd if 111 = '/ . Error if 111 > 7 

nUILTIN[SETPOST0,44]; "Sot post-evaluation macro (SETPOST0[mem, macro]) 
BUII-TIN[SETMDEXT0,47]; "Set ,mb file extension 

COMCllARg[~]; "Makes ""-" work like "%" at beginning of linos 

SETMBEXT0[DIB]; 

H0[SUB,ADD[//l.NOT0[//2]. 1]]; " 

XMeiiiory declarations must have names and sizes agreeing with those in 

Midas, except that IM must agree with the form expected by MicroO. 

% 

MEMORY@[IM, 124, 10000, we, W@]; 

MEMORY0[RM , 2 0, 4 00 , RSRCS , RSINKS] ; 

MEMORY0[1MEOCK, 1 , 10000 ,W0 ,W@] ; 

MEMORYS[VERS10N,20, 1,W0,W0]; 

M0[W@,]; "Dummy macro required for memory definitions 

IM[ILC0,O]; "Location counter for IM 

XMemory lock Control macro 

IHRESERVE[page //.first address . number of addresses] 
Will not allocate in the reseryed locations 
7o 
FLX0[LOCK0,O,O]; 

M0[IMRESERVE,IMLOCK[Z@,ADD[LSHIFT[//1,1O],//2]J 
REPEAT@[//3,Z0[(LOCK@[1])]] 

] 
VERSIOM[VLC@,0]; 

M0[IMUNRESERVE,IMLOCK[Z@,ADD[LSliIFT[//l,lO],//2]] 
REPEAT0[//3,Z0[(LOCK@[O])]] 

] 
VERSION[VLC@,0]; 

FLX®[VERS@.0,17]; 

%Second arg of LIST controls listing of memories as follows: 

1 = (TAG) nnnn nnnn nnnn ... 

2 = (TAG) Fl<-3, F2<-4, ... 

4 = numerically-ordered list of address symbols 

10 = alphabeticaily-ordered list of address symbols 

% 

LIST@[IM,7]; LIST@[RM,5]; LIST0[,17]; 
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/ilhroo macros define parameters from vjhich constants, RM values, or 
IM data can bo const ructod: 

MP[ NAME.octalstriiifi j makes a parameter of NAME; 

SP[NAME,Pl,P2,P3,P't,P5,P6,P7,P01 makes a paramoter NAME Gqiial to the sura 
or PI, P2, P3, P4, P5, P6, P7, and P8, wtiore the Pn may be parameters or 
addresses . 

NSP[NAME,Pl,PZ,P3,P4,Pft,P6,P7,P8] Is ones complement of SP, 

The paramoter "MAME" is defined by the integer "NAME!", so it is ok to 
use "NAME" for a constant as well as a paramtor. l-!ov;ever, it is iiiogal 
to define constants, addresses, etc. with identical names. 

"Literal" constants such us "32ZC", "177622C", or "32400C" may be 
inserted in microinstructions without previous definition, 

Al tornati vo'ly , constants may be constructed from parameters, integers, and 
addresses using the foVlovnng macros: 

MC[NAME,P1,PZ,P3,P4,P5,P6,P7,P8] defines name as a constant vjith value = 
sum of parameters PI, P2, P3, P4, P5, PG, P7, and P8; 

NMC[fJAME,Pl,P2,P3,P.l,P5,P6,P7,P8] is the ones complemont of MC . 

Note: MC and NMC also define NAME as a paramoter. 

7. • • 

'Fields Foi' initializing 16-bit wide memories 
FI.X0[EO@,O,31; ELX@[E19', 4 , 17;| ; 

"Macro to initialize (16 bit) variables in the target memory. This Is 
"done by writing 32100V (i.e., as a literal). 
MtO[y,Er6[//l] E0@[//21]; 

M8[MP@,SET[//1! ,//2]]; 

HOrSPl'i, irG0[//O , 11 . E(l@[Too .many . args . for. //I] . 

SETf//] ! ,DPS0i//2 , //3 , /M, //5, //6 , //7 , //8 , //9]]]] ; 
M(')( NSP0 , 1 FCiaf //6 ,11, FRer Too . many . a rg s . f or . //I ] , 

SET[//1 ! , N0Te[DPS@[//2 , //3 , //4 , //5 , 11% , 111 , //8 , //O"]]] ]] ; 
MP[DPSl3,ADD[PX(3[//l],PX@[//2],PX@[//3i,PX0[//4],PX0[//5],PX@[//6],PX@[)y7],PX(9[//8]]3; 
MS[!.0]; 
M0[PXe, [DFa[//l! ,//ll ,//l]]; 

M@[C,IFA0[F10,ER0[Fl.used. twice], 
IFA@[F20,ER0[F2.used.tv;icei, 
XFE0[AND@[//3//2, 17/760|,0, 

SET[!Tl@,ADDiLSHIFT[//2,4],llSHIFT[//l,10]j] 
SET[!T20,AND0[//1,377]'J 
:[FE0[ !TZ0,O.1!G0[1J FF0[ !T1S], 
BS0[O] Fr0[!T20j 

] B, Ef<@[Constant.too.big] 
J 
] 
] 

:i; 

M0[MC,IFG0[//O, ll,ER0[Too.many.args.for.//l], 
SP0[//1 , DPS0i//2 , //3 , //4 ,//0 ,//6 ,111 , //8, //9] j 
H@[//1,ADD[//1!]C]]]; 

M0[NMC , IFG0[//O , 11 , ER0[ Too .many . args . f o r. //I] , 
SP0[//1 , N0T@[0PS@[.'/2 ,//3 , //4 , //5 , //6 ,//7 , //8, #9]]] 
M@|;//1,ADD[//1!"|C]]]; 
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xm stuff 

liM constants and variables are allocated in two stops. Fifst, the 
group of 100 registers tiiat must contain tho o?tes being ailocatod Is 
declared b,y SF.TTASK, which binds the integer RMBASE to tho top two 
bits of tho selected tasic times 100. 

Then registers in that group of 100 arc allocated as follows: 

' RV[F0Q,23,pl, , . . ,p7]; *Croatos FOO = RH 23, value sum of params 
RV[F00,23i: 'Creates FOO = RM 23, no valuo 

RV[F00i; 'Creates FOO at last location -i- 1 

RV[F00, ,170/5]; *Croates address FOO at location after 
*last one allocated with value 175/5 

These macros leave the integer RLi, where i = to 3 (the region) 

bound to the last displacement allocated, and tho integer RL is always 

equal to RLi for the current region. 

% 

M@[SETTASK,IFG@[//l,17,ER0[inegal .SETTASK], 

SELECT0[OTA.SK0,SF.T[RLO@,RLe],SET[RLl@,RL0],SET[RL2@,RL0],SET[RL3@,RL0]] 
SET[OTASK0,RSIIIFT[//l,2]i SEticURTSK0,//l] 

SET[RMBASE@,LSIiIFf[QTASk0,61] *For rog . instructions 

SFT[GRRASE0,LSHIFT[CURTSK0,4|] ~*Formem. rof instructions 

SET| RL0,SEI.ECr@[QTASK0,RLO@,RLl@,RL20,RL30]] 

]1; 

SET[RLO0, 177777"!; SET[ RL1@, 177777] ; 
SET[RF20. 177777]; SET[RL30, 177777]; 
SET[RHBASE0,O]; S£T[OtASK0 , 0] ; SET[CURTSK0 , 0] ; SET[RL@ , 17 /777] ; 

MlS[nv,SET[RL0,IFSE0[//2, , AD[)[ 1 , RL0] , //2]] 
irGG[RL0,77,ER@[RM.ovf]] 
RMi"//l,ADD[RMDASE0,Rl.0]] RM[RLC0 , Il'[//1] ] 
IFG0[//O , Z , RLC0[DI'S0[//3 , /M , lib ,IIG,II7 , II& , //9]V]] 

I; 

*RH addresses used as sources/destinations execute following macros. 
M0[RSINK0,CKRHA0[//1] RB*-]; 
M0[RSRC0,CKRMA0[//1]" RB]; 

M0[CKRMA0, SET[/:0T@,IP[//1]] MRS0[AND0[ZOT@, 77]] 
IFE0[RSMIF'T[ZOT@,6],QTASk@, 
IFE0[AND0[ZOr0,6O],O, 

IFE0[AND0[CURTSK0,3],O, , ER0[//1 . unadd ressabi e]] 
],ER0[//l.unadd res sable]] 

]; 

*PCF[RMAI)DR], SB[RHADDR], and DB[RMADDR] are also A sources 

Me[PCF,QRS@[//l ,0,PCF]]; 

M0[.Sli,ORS0[//l,l,Sn]]; 

t.!@[DB,QRS0[//l,2,DB]]; 

M0[QRS@ , SET[ ZOT0 , IP[ //I] ] 

IFE0[AND0[ZOT0,3],O, tFE0[ RSIIIFT[ZOT0 , 6] , QTASK® , MRS@[ADD[ 100 , ZOT© , //2]]R0 , 
ER0[//1. in. il legal . RM. region]] , ER0[//1 .not .quadal igned]]]; 

*other register sources 

M0[AI URESULT, XFA0[MRS1X0,MRS1ER0, 

MRS@[107] LDF[RB,4,'l]]]; *aluresuU = ovf , car, =0, <0 

m0[sai.uf,ifa@[mrsix0,mrsu:r0, 

MRS0riO7] LDF[RB, 10, 10]]]; 
M0rSSTkP,lFA@[HRSlX0,MRSlER@, 

MRS0[1O3] LDF[RB,0,10]]]; 
M0[NSTKP,IFA©[MRS1X0,MRS1ERQ, 

MRS0[1O3] LDFTRB, 10, 10]]]; 
M0[STKP,IFA0|MRS1X0,MRS1ER0, 

HRS0[1O3] LDF[RB,10,10J]]; 
H0[MEMtRROR, IFA0[MRS1X0 , MRS1ER0, 

MRS0[117] RB]]; 
H0[MEMSYNDROME,IFA0[MRS1X0,MRS1ER@, 

MRS0[113] RB]]; 
M0[DBXREG,IFA@[MRS1X0,HRS1ER@, 

HRS0[127] LDF[RB,0,4]]]; 
M@[MWXREG,IFA@[HRS1X0,MRS1ER0, 

MRS0[127] LDF[RB,4,4]]]; 
M@[CYCLECONTROL,IFA0[MRS1X0,MRS1ER9, 

MRS0[1Z7] LDF[RB,0,10]]]; 
M0[PCXREG,IFA0[MRS1X0,MRS1ER9, 

MRS@[1Z7] LDF[RB,10,4]]]; 
H0[PCFREG,IFA0[HRSlX0,|.',''SiER9, 

MRS0[127] LDF[RD,14,4]]]; 
M0[PRINTER,IFA@[MRS1X@,MRS1ER9. 

REGSHIFT[] MRS0[127] RB]]; 
M0[DBSB,IFA§[MRS1X@,MRS1ER@. 

REGSHIFT[] MRS@[133] RB]]; 
M@[TIMER, IFA@[MRS1X9,MRS1ER9, 

MRS0[133] RB]]; 
M0[RS232,IFA0[MRS1X0,MRS1ER9, 

MRS0[137] RB]]; 
M0CMNBR,IFA0[MRS1X0,MRS1ER9, 

REGSH1FT[] MRS9[137] RB]J; 
M0[APCrASK,iFA@[MRSlX0,MRSlER9, 

MRS0[143] LDFiRB,0,4]]]; 
M0[APC, IFA0[MRS1X0,MRS1ER@, 

MRS@[143] LZER0[RB,4]]]; 
M0[APCTASK&APC,IFA9[MRS1X@,MRS1ER9, 

MRS0[143] RB]]; 
M0[APC&APCTASK,IFA9[MRS1X0,MRS1ER9, 

MRS0[143] RB]]; 
M@[CTASK,IFA@[MRS1X0,MRS1ER@, 
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MRSeEl*?! IDP[RR,0,4]]]; 
M(?[NC TA , IFAl9[MnSlXQ , MRSiF.R9 , 

HRS0[117 1 lZi:R0[Rn,4]]]; 
Me[CSDATA/lFA0[MRSlX@,MRSlE'Ra, 

MRS0[1631 ROJ'I; 
MfifPAGK. , IFA6[MRS1.X@ , MRSIF.RQ , 

MRS@[lb7] IDF[ril1,0,4]'l]; 
M0r!'ARITY,iFA0[HiiS1XO>,MRS:lER9, 

MRSG[ir)7| FnF[Rfi,4,4]]]; 
M(3[UOOTR£ASON,IFA@iMRSiX0,MRSlCR0, 

MR.S@[157'1 I.DF[RD,10,lO]i]; 
MS |;MRSiER@,tR0[MRS:l. used, twice]]; 

*To get a mult i -f iet d word using oirly one spGcification , use 

*GEFRSPIiC[mrs address] . Thus to load T with APCFASK and ARC, uso *thc following syntax: 

• T <- CF,TRSPEC[143]; 

H0[GETRSPEC,IFA0[MRSlX@,ER@[MRSl.usod. twice], 
HRS0[//1] RB]]; 

*vStl<.P sourcQS/dost inat ions and other RB sources are defined with the 

* foi lowing macros : 

*MKRSRC0[nanio , rso lvalue] defines the source -or- 
*MKRDEST@[namo , rsei value] defines the destination 
M0rMKRSRC0,M0r//l, (HRS0[//2] //3) RB]]; 
M0iMKRDF,ST0,M0[//l,(MRS0[//2] //3) RB*]]; 

•STACKSlilFT (StackShift) is F2 

MKRSnC0[ STACK, 163,]; MKRSRC@[STACK&+1 , 167,]; 

HKRSRC0rsrACK&-l, 173,]; MKRSRCe|"STACK&-2 , 177,]; 

MKRSRC0[ STAC K&+2, 163, STACKSHIFT]; MKRSRC0[STACK&-h3 , 167 , STACKSHIFT] ; 

HKRSRC0[ STAC K&-3, 17 7, STACKSHIFT]; 

MKRDEST0[ STAC K<-, 163, ]; MKRDESTS[STACK&+1«- , 167 , ] ; 

MKRDFST0rsrACK&- 1<-,173,]; MKRDtST0[STACK&-2<- , 177 , ] ; 

MKRDr.ST0[STACK&>2<-, 163, STACKSHIFT]; MKRDEST@rSTACK&+3<- , 167 , STACKSH [FT] ; 

MKRDtST0[STACK&-3<-, 177, STACKSHIFT]; 
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%IM usod as data stuff 

IM words can bo assomblod as data using tho "1.11" (lafthalf) and "HH" 
(i-ight-lialf ) macros defined below. Each of these takes up to 8 argumonts 
whicli are (jithor parameters, addresses, or integers. Those are summed 
to form tho value stored. 

Tho way to assemble data is: 

DArA[(LH[...] RH[...] AT[...])]; 

% 

FLX@[VO0,O,17]; FLX(3[V1Q, 20 , 37] ; 

M0ri-ll,IPG@[//O,lO,ER0[Too.many.args.ror.LHJ] 
VOe[DPS@[//l , //Z , //3 , //.I , //5 , //6 , /// , //a]]] ; 

M0[l!ll,IFG(9[//O,lO,F.R0[Too.many.args.for.nH]J 
Vl0[DPS0[/'/l , l/Z , //3 , //4 ,//G ,//6 , //7 , //8]]] ; 

M0[DATA,ILC@[[!trCL0[2] //I.]]; "Indicate "Return" so no MicroD fixup 

•IM field definitions 

M0[MRS0,HRSl0[RSIiIFT[//l,2]] RSEI.20[ AND0[//1 , 3]]] ; •MEMIN,$0, RMOD0 , and RSEL0 

M0[MnS10,MRSlX@[XOR0[//t, 1^]]]; 

FL X0|"MnSlX@,O,5]; 

M0[RSMOD0,RSMOD10[RSHIFT[//1,2]] RSEL20[AND@[//1 , 3]]] ; 'RMODS and RSEL0 

M0[RSHOD1@, nSMODlX0[XO(i@[//l , \V\Y\ ; 

FLX0[RSHODIX0,1,5"|; 

FI.X0!;F20,22,25"|; ' *FF[4;7] 

FLX@[JC0,26,3O"J; '"Jump control 

Ma[JA0,JAl©[RSIITFT[//l,6]] JA2@[AMD0[//1 , 771]] ; 

l-LX6rJA10,122,123]; 

FI.X0[JA2@,3I,36]; 

FLX0[JA70,36,36J; 

FLX0[RSE12@,12O,121]; 

'"Fields in regular instructions 

FI.X0[AFO0,6,6']; *Sign bit for constants 

FlX@[ALF0,6,lii; *Entire ALUF field 

FLX0[BS0, 12, 13]; *Source for BMux 

FLX0iLR@,2O,2O]; *Load RM 

FLX0[ IT0,21,21]; *Load T 

FLXeflMr'ARITY©", 37,37]; "Parity bit 

M0[l F0,F10[RSHIFTi.'/i',4]] F20[AfJD0[//l , 17]]] ; ^Function field 

FIX0[F10, 14, 17]; •FF[0:3]" 

■"Fields in memory reference instructions 

FLX@[TYPE0,6,11]; "Type of memory reference 

•"Sourco/dest ination 

FLXo)[Si;cntS0, 12,21]; 

■Txtra stuff for MicroD 

FI.X0[BRKP0,4O,4O]; *Instruction has a breakpoint 

FI.X0[WO0,44,57]; 

•I LX0[0GWO0,41,57]; *@W0, Gl.B, and PWO 

FLX0[0WO@, 41,41]; '^Place at absolute loo. WO 

*FI.X0[CLn@,42,42i; '"Place at global call loc. 

FLX0[PWQ0,43,43]; '»Bit 43=1 tells MicroD that 44:47 contain the page 

*on which the instruction should be placed 

FI.X0[PGE0, 44 ,47]; "contains page for mi placement 

FLX0[RETCL0,6O,61]; '•2 = does a Return 

*1 = does a Call 
FLX0[ODDCALL0,62,62];'«Does a call from an odd location 
FLX0[SWPAGE0,63,63]; "'This instruction loads the PAGE register 

FLX0iWl@, 64 , 77] ; '"Imaginary address of luiconditional or false 

■"branch address 
FLX0[CHPAGE0,lOl,lOl];*Indicates F-field is LOADPAGE, new page in F2 
■"FLX@[EMUL@, 102,102];''Presently unused 
Fl.X0[CND0, 103,103]; "lias a branch condition 

FLXeiW20, 104 , 117] ; '"Imaginary address of conditional branch when true 

M@[FZ@,IFA0[F10,ER0[F1. used. twice],IFA0[F20,ER@[F2. used. twice],rF@[//l] ]]]; 
M@[rF10, IKA@[F10,ER0[F1. used, twice], Fl§[//1] ]]; 
M0[FF2@, I FA0[F20,ER@[F2. used, twice], F2§[//1] ]]; 

M9[DREAKPOINT,BRKP0[1]?]; 
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*NG(itrals and connection macros 

N@[RB<-]; H@[RB]; NQ[A]; N8[a<-]; N0[D]; N0[7J; N0[T<-]; 

Me[A<-A,A<-J; M@[n^Ll,B]; M0[LU<-LU, LU] ; 

M6[A+-,PFe[AI.F@, l]SET[RF.GIFLAG@,i;|]; 

M0[A*-RB,At-]; 

M@|RB< LU,LR@[1] LU'J; 

M0[R()«-A,nB<-(LU<A)]; 

M0[RG<-B,RB< (L.U<-B)]; 

|.i0rRB<-T,RB<-(H)(T)]; 

M@[RU«-RB,RB<-(LU(-RB)]; 

M@[B<-T,B]; 
M0[T*-I.U,LT(3[1] LU]; 
M@[I>A,T«-(HJ«-A)];' 
H0[T<-B,T<-(LU<-B)]; 
M8[T<-T,r<-(LU< r)]; 
M0[r<-RB,T«-(LU*-RB)]; 



N0[r]; N0[l.UJ; NfirLUf]; 
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XCyclor-inasker stuff: 

The arguments to the IDF and DISPATCH macros are POS and SIZE, whei-o 
POS is the left bit of the field and SI7.E the number of bits in tho 
field. This is identical to Mesa read-field and writo-fiold 
descriptors , 



LDffRBsource, POS, SIZE] is used to right-justify any field. 
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DISPArctl[RBsource, POS, SIZE] is used to load APC with the selected 
field with SIZE =< 4 bits, 

207 -226 20 1-bit fields starting at bit 0, 1 17 

227 -245 17 2-bit fields starting at bit 0, 1 16 

246 -263 16 3-bit fields starting at bit 0, 1 15 

204 -300 15 4 bit fields starting at bit 0. 1 14 

RSIIfRBaource , shi f tcount] right-shifts RBsourco by shiftcount 1 to 17. 

uses LDF[RBsource , 0, (20 - shiftcount)] codes 
LSII[RBsourcc , Shi f tcount] loft-shifts RBsource by shiftcount 1 to 17. 

301 -317 17 left shifts of 1 17 bits 

LCY[RBsource , shi f tcount] left-cycles RBsource by shiftcount 1 to 17. 

320 -336 17 left cycles of 1 17 bits 

RCY[RBsource , shiftcount] right-cycles RBsource by shiftcount 1 to 17. 

uses LCY[RBsource , (20 - shiftcount)] codes 
RHMASK[ RBsource] is RBsource & 377 

uses I Dr[RBsource, 10,10] code 
l.llMASK[RBsoui-ce] is RBsource & 177400 

337 -337 RBsource & 177400 

ZERO is zero 

340 -340 zero 

7. 
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M@[L.DF,BS0[3] 

XFG£)rADD[//2,/'/3],2O,r-R0[mega1.POS+SIZE], tFGQ[l,#3.ERt![Il logy] .SIZE], 
t7.0[ADb[//2,If-GQ[//3,7, 

SELECT0[SUt![/i'3,lO],133,144,l,'34, l63,171,l/0,202,;?05], 

SEl.ECT@i//3, 100000, 0,20, 37, 55, 72, 106,121"!]]] 

M0[DISI'ATCII,!)Se[3]Al F0[1]SET[RETNOGOOD0,1] 

IFti@[y/3,4,ER0[I"negal.SIZE],IFG@[ADD[//2,//3],2O,ER@[inegal.POS-'-SIZE], 
F7.@|'ADDi//2 , SFLECTQ[//3, 100000 ,207,227, 246 , 204]]] 

H@[RSH,BS@[3] 

IFG0[//2,17,ER0[RSII.courit. too. big], I FG@[1,//2,ER0[RSI1. count .too. small], 
F7.0[IFG0[//2, 7,SELECT0[SUB[//2,io],133,'l21,lO6,7 2,55,37,?.O,O], 
SELECT0[//2,lOOOOO,2O5,2O2,17 6,171,163,154,144]]i 

M0[LSM,BS0[3] 

lFG@[//2,17,ER0[LSII.coiint.too.big],IF60[l,)'/2,ER0[LSH. count, too. small], 

rZ0[ADD[//2,36o]] 

//I]]]: 

M0[RCY,QS0[3] 

TFC0[//2,17,ER@[RCY.count. too. big], I FG@[1,//2,ER@[RCY. count, too. small ], 
FZ@[SUB[337,//2]] 

M@[LCY,DS§[3] 

IFG@[//2,17,ER0[IXY.count.too.big],TFG0[l,//2,ER0[ICY. count, too. small], 
FZe[Al)0[//Z,317]] 

M@[RI1MASK,BS@[3] FZ0[143] //I ]; 
M0[I.HMASK,BS0[3] FZ0[33/] //I ]; 
H0[ZERO,BS0[3] FZ0[34O] RB] ; 
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%Functions: 

Functions are divlclod into the fonowing classes; 

1. Group A and Group 11-— only in regular instructions, uss Tl and f'2. 

2. Fl only--on1y in roguiar instructions. 

3. F2 only--either memory reforoncij or roguiar inalruc t ions. 

% 

•Croup A functions aro currentiy unused 

♦Group B functions 
M0[SPAREFUNCT.TON,FZ@[16O] 7\; 
M0[:RESEIi:nRORS,FZ0[161] ?]; 
M0[INC(.IPANEL,rZ@[t62] ?]; 
M9rCLEARMPAHEL,FZ@[163] ?]; 
M0[GENSI^CLOCK,FZ9[ir,4] ?]; 
MQ[ RESETWDT, FZ@[ 165] ?] ; 
M(9[liOOT,FZ9ilG6] 7]; 
M@iSETFAUI-T,FZ@[ie7i 7]; 

M@[APCTASK&APC< , FZ@[170 |SET[RETNOGOOD@,a] A^]; 
M0[APCf!-APCTASK< , FZ@[17O]SEr[(fETNOGOOD0,l] A<-J; 
M(a[ RESTORE, FZ0[171] A*-]; 
MQ[RESETFAULT,I^Z0[i7 2] 7]; 
M0[USECTASK,FZ@[173] '] ; 
H0[WniTECSO&2 , FZ0[1741 CSX0] ; 
MQ[WRnECSl,FZ0fl75j CSX0]; 
Me[REAI)CS,F70[T76] CSX0"|; 

M0fCSX0,JC0C6] SET[CSrLCQ,l] ER0[CSOp . . . ] J ; 
M0[DOOFF,FZ0[i77j 7]; 

•Fl only 

*00 tal^e an RM address as argunient 

M@[[!BFA,REGSIIirT[;]Pr0[ ;aIF0,3JFF10[OO] /nj; *Tliis is a dispatch 

•Fl =^ 5 is load page 

*F1 = (5 is Group A is unusod 

*F1 = 7 is Group Q 

M0[RS232< ,FF1S[1] U<- ]; 

"02-03 taico an RM address as argument 

M0[LOADriMER,FF10[2] At-//1 J; 

M0[ADDTOTIMER,FF10[3] A<-//1 ]: 

*4 is unused 

M0[I-OAOPAGE,FF10[5] FF20[//l'J SWPAGE@[l]]; 

*F1 =6 is Group A 

*F1 =7 is Group B 

*H-14 taite an RM address as argument 

*F1 = 10 is no-op 

M0[WFA,FF10[11 I //I]; 

M@[BOFn,FF10[r2] in]; 

H@[W1 D,FF10[13] //I]; 

M0[RF ,FF10[i'1| //I]; 

M0[BnFl!X,FF10[15] //I]; 

M0[NFXriNSr,FF10[16] RETCL.0[1] ODDCALL0[1] JC0[5| PCF[//1]]; *Tlns is a dispatch 

M0iNEXrDATA,FF10[17i RErCL0[ll OnDCAI.L0[" 1] JC0[5i PCF[//1]']; 

M@[CNEXrDATA,FF10[17] PCr[//l]i; *Lil(e Mex'tData, but l^nown to l>e a call, and is to be placed as a call by MicroD 

*F2 only 

M0[REGSIIIFT,FF20[O1 ]; 

M0[STKP< , FF20[1] A<- ]; 

M0[FREEZtRESULT,FF2@[2]7]; 

*STACKSIIIFT is invisible (used only by STACK, STACK&H, STACK*-, etc.) 

M0[STACKSli;[FT,FF20[3]]; 

M0[IOSTROIIE,FF20[3]];" 'same as STACKSHIFT 

H0[CYCLECONTROL<-,FF20[4] A«- ]; 

M0[Sn<-,FF20[5] A*- ]; 

M0[i:)n<-,EF20[6'] A<- ]; 

H0[NEWINST,ER0[NewInstIsNowCyEocation]]; 

M0[RRANCIiSMIFT,FF2@[lO]SET[BRSIIFI.G9,l]]; 

M0[SALUF<-,Fr2e[ll] n^ ]; 

*12 is a no-op 

M@[MNBR<-,FF2@[t3] A<- ]; 

M0[PCF<-,FF20[14] A«- ]; 

M0[RCSETMEMERRS,FF2@[151]; 

M0[USECOUTASCIN,FF20[16i]; 

M0[PRINTEI!<-,FF20[17] A<- ]; 
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XMemory reforoiice instructions: 

Memory roferciico clauses are encoded in one of the roHowirig forms; 

f'rETCilri[basereg,raddr,F2|; 'n = 1, 2, 4 

PSTOIitnfbasQrer), raddr.rai; *n = 1, 2, 4 

:torETCIlM[basorGg, device, F2]; *n = 4, 20 

rOSTOREnrbasoreg,dovico,F2]; "n = 4, 20 

XMAP[baser6g, raddP,F2]; 

:tfJPUf[raddr.r-2]; *dGviceaddr is H2[ 10 , 13]orC rASI<[0 ,3] , ,tl2[14, 17] 

0UTPUT[paddr,F2]; *dGvic6addr is Ii2|: 10 , 133orCrASK[0 ,3] , , H2[14, 17] 

(■itADPIPE[raddr]; 

PEFRESII[raddr]; 

The F2 argument is optional. If given, it causes the displacement to 

come from F2 rather than T. 

The base register RM address 1s legal if: 
RAddr is oven 

RAddr eg OR@[RAddr,BROASE] 
% 

M@[MEM®,SET[ZOT0,IP[//1]] 
IFG@[2O,ZOT0,SET[/.OZ0,OR0[ZOT@,DRI3ASE@]],SET[ZOZ@,ZOT@]] 
TFE0[OR@[ZO/e,BRBASE@l,ZOZe, 

XFE@| ANOefZOTS, 1], 1,EI!0[//1. i s . an . odd . base . register],] 
IFG@[//2,2,F20[//3] MRS0[ ADD[300 , AMO@[ZOT0 , 77]]] , 

MRS0[ADD[2O6,AND@[ZOT0, 77]]]], 
ER0[//1. not .addressable, by .task]]] ; 

M0[MEMRe,IFSF0[//l, STACK, SRCDES0[O],SET[ZOT0,IP[//1]] 

lT-O0[2O,ZOT0,StTrZOZ0,ORQ[ZOT0,RRBASE@]],SET[ZOZ0,ZOT0]J 
1FF@1 OR0izOZ0,ORnASE0] , ZOZ@, 

Il-E@f AND0[ZOT@,//2], 0,1 FE0[ZOT0,O,ER@[//t. equal . zero .. stack, wi 11 . be. used. , ]] 
SRCDES0[z6T0], ER0[//l.not.evon.or.not .quadal igned]], 
tR0|7/l . no t . add res sab 1 o . by . task] ]] ] ; 

M0f 1ODV@,IFE0[OR0[//1,BROASE0],//1,SRCDES0[//1],ER0[//I.is.unaddressab1o.dovico]]]; 

*type is unused 

H0[lOFETCH4,MEM0[//l,//O,//3] TYPE0[1] I0DV@[//2] 7]; 
M01READPIPE,MRS@[2OO] TYPt0[2] MEMR0[//t,O] 7]; 
M0[REFRESII,TYPE@[3 1 MRS0[ ADD[300 , ANI)0[ 77 , IP[//rj]]]F20[O] ?]; 
H0[PFETCMl,MEM0[//l,//O,//3] TYPE@[4] MEMR9[//2,0] ? ] ; 
M0[PFETCM2,MEM0[//l,//O,//3] TYPE@[5] MEMR0[//2 , 1] ?]; 
H0[PFETCIM,MEM0[//l,//O,//3] TYPEQ[6J MEMR0[//2,3] 7]; 
M0[1NI'UT,1FG0|'//O, l,MRS0[3OO] F20[//Z] ,MRS0[2OO]] 

TYPE0I 7] MEMR0[//l] 7]; 
H0fPSTOREl.MFM0f//l,//O,//3] TYPE0[1O] HEHR0[//2,O] ?]; 
M0rPSTORE2,MFM0|//l,//O,//3"] TYPE0[11] HEMR0r//2,l] ?]; 
M0[PSlORE4,MEM0i/ri,//O,//3i TYPE@[12] MEMR0r//2,3] 7]; 
H0[OUTPUT,irG0| //O,1,MRS0[3OO] F2@[/>2] ,MRS@[200]] 

TYPE0[13] MtMR0r/n] 7]; 
M0| IOFtlClll6,HEH0l,//l,//O,//3] TYPE0[14| IODV0[//2] 7]; 
H0nOFETCII2O,MEM0[//l,//O,//3] TYPE0[14] lODV0[//2] 7]; 
M01 IOSTORE4,MEM0| //l,//0,//3] TYPE0[lb] T0DV@[//2] ?]; 
HO[XMAP,MEM0[//l,//O,//3] TYPE0[lfi] MEMR0[//2,O] 7]; 
H@[ rOSTORH16,MEM0[//l,//O,#3] TYPE0[17] iOOV0J[//2] ?]; 
M0[IOSTORE2O,MEM0[//l,//O,//3] TYPE0[17] IODV0i//2] 7]; 
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XCont. rol stuff; 

% 

*Forco Qbsoluto iocatloii and change deratiH pago 

M0[AT,@WO(')|;i] WO0[;aDD[//1,//2] J ONPAGF[RSHIFT[ADD[//1,//2],10]]]; 

'Tlio default micro- instruct I011 

DF.FAIJLT0[IH, (I3SID[2] F10[1O] F2a[12] JC@[4] Ul@[y777] W2@[7777] PV«0[1])]; 

"Micro-Instructions which arc no-ops use the foilowing macro: 
Mi3[NOP,PFe[OS@,21J; 

*The ONPAGF macro changes the default page number which is used 

*for address assignment. 

M@[OHPAGE,DI;FAULT0[IM,PGE0[//11]]; 

%H ranch macros 

"~I3" and "~" in front of branch condition names are for t^^pe checks. 

Macros insert these noise characters in front of names supplied by tho 

prog ram. 

% 

M@[.-3,ADD[in[n.C@l,-3"r|; MQ[ . kT , ADDriP[ II.CO] , 3]] ; 

M(a[.-2,ADI)[£PilLC@"|,-2']l; M0[ . +2 , ADOilPi II.CO] , 2] J ; 

M@i. -l,ADD[IPriLC@],-li,l; M0[ . +1 , ADD[IPi 11X0] , l]) ; 

M0[. ,;[LC@]; 

'•Regular BC'S: Those conditions result in odd addresses 
M@r~ALU//0,CND(<)[r| JC@[0] JA7@[03 si;t[ai.ijtestflg@ , 1]] ; 
M(a[>CARnY,CNOt'[i] JCSioJ JAyefl] SCT[ALUrESTFI.G0,l]]; 
M0|>Al.U<O,CND0i;r| JC0[li JA7@[0] SET[ALUTESTFLC0,1]J; 
M9[~NOtl2BIT8,CND0[l'l JC0[1] JA7@[1]]; 
M@[~R<O,CNr)0[lJ JC@i2] JA70[O]]; 
mf-n ODD,CNDeril JC0[2"| JA70fl]]; 
M0[~NOATTEN,CMD0[1] JC0[3'J JA/@[6yi; 
M0[~Mn,CND0ilJ JC0[3] JA70[1]]; 

M@C~lNTPENDING,CNDe[l] JC0[O| JA7@[0] BRANCIISMIFT] ; 
M0[-NOOVF,CND0ill JC0[O'j JA7@[11 SET[AI,UTFSTFLG@ . i] BRANCHSMIFT] ; 
H@[~tiPCC(IK,CND0[ll JC0[1] JA70[O] BRANCHSMIFT]; 
M@[~SPAREBRANC!I,CND0[1 I JC0[1| JA70[1] BRANCHSIIIFT] ; 
H0[~OUADOVF,CND0[1] JC0[2J JA70[O] BRANCHSMIFT]; 
M@[~TIMEOUT,CND0[1] JC0[2] JA70[1] BRANCHSMIFT]; 
H@|;~,]; 

♦Complementary BC ' 3 : These conditions result in oven addressed 
M0[~0ALU-O,CND0[1] JC0[O] JA70[O] SET[ ALUTESTFLG0 . 1]] ; 
M0[~0NOCARRY,CND0il] JC@[0] JA7@[1] SET[ALUTESTFLG0 , 1]]; 
M@[~(3ALU>-0,CND@[l]' JC0[1] JA7@rO] SE r[AHJTESTFLG0, 1]] ; 
M0[~@ll2BIT8,CND0[lj JC@[1] JA7@[1]]; 
1.101 ~0R> = n,CND0[lj JC0[2] JA701O]]; 
M0[~0R i;VEN,CNO@ri] JC0[2] JA7@[1]]; 
M0[~0IOATTEN,CND0[ij JC@[31 JA70[O]i; 
M@[-eNOMB,CND0[l] JC0[3] JA70[1]]; 

M0[~0NOINTPENOniG,CND@[l] JC0[O] JA70[O] BRANCHSHIFT] ; 
M0[~0OVF,CND@[t] JC0[O] JA70[1] SET[ALUtESTFI.G0, 1]BRANCMSHIFT] ; 
Me[~@nPCNOCMK,CND@[l] JC0[1] JA70[O] BRANCHSHIFT]; 
M0[~0SPARi:NOBRANCII,CND0ri] JC0[1] JA70[1] BRANCHSMIFT]; 
M0[~0INOUAD,CNO0[1] JC0i2i JA70[O] BRANCHSHIFT]; 
M@[-6NOTIMEOUT,CND0[1] JC@[2] JA70[1] BRANCHSHIFT]; 
■M0[~0,]; 

M0[DBAr0,IDF0[~0//3,WlQ[//l] W20[//2](~0//3 ,~0//4) , W20[//l] Wl@[//2]( ~//3 ,~//4) ]] ; 
M0[BAT0,I[)F0[~0//2,W1@[//1] (~0//2,~@//3),W20[//l] (~//2 ,~//3)]] ; 
M0[GOTOX0,W10[7/1] IFE0[CSFLG0,1,JC0[6],JC0[4]]]; 

%Branch and Goto 

Tho branch and goto macros are now identical and are 
interchangeable. If the next micro- instruction to be executed 
is in a different page, the macro must have a P following it. 
Thus GOTOP[xyz] is used when xyz is in a different page from 
the current micro-instruction. This occurs only when the m-i 
preceding the current one does a LOADPAGE. 
% 

M@[DBi.GOTO , DnAT0[//l , //2 , #3 , //4]] ; 
MeiDBLGOTOP , CHPAGE@[ 1] DBAT0[//1 , //2 , 1/3 , 7/4]] ; 
M0[DBLBRANCM,DBAT0[//l,#2,i5'3,//4]i; 
M@[DBLBRANCHP,CIIPAGE0[1] DBAr0[//l ,(^2 ,//3, #4]] ; 

M@[GOTO,IFSE0[#2/y3, ,GOTOX0[ffl], 

BAT0[//l,//2,//3]]7]; 
M@[GOTOP,IFSE0[#2//3, ,GOTOX0[//1] CHPAGE@[1], 

BAT@[//l,#2,//3]]?]; 
M@[BRANCH,IFSE@[//2//i3, ,G0T0X@[//1], 

BAT0[/?l,//2,//3]]?]; 
M@[BRANCHP,IFSE0[7/2//3, ,GOTOX0[//1] CHPAGE0[1], 

BATe[//l,//2,//3]]7]; 
MS[SKIP,G0T0[.+2,#1]]; 

***•**•**"* External References 
M@[G0T0EXTERNAL,IFSEQ[//2//3, , 

RETCL0[2] JC@[4] JA0[AND@[#1 ,377]], 

ER0[No. conditional .external . goto]]] ; 
M@[CALLEXTERNAL,IFSE0[//2j5'3, , 

W20[.H] RETCL0[3] JC@[5] JA@[ANDe[#l,377]] , 

ER0[no, args . allowed. in . external .cal 1 's]]]; 
M0[LOADPAGEEXTERNAL, FF1@[5] FF29[//1]]; 
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XCans must nonnany be executed from even locatloiiG, bocai.ise 

the return is to the caller's address or 1. MIcroD will only pi Mils at even word locations. The NEXTTNST, NF.XTop, and MEXTDAIA 

macros are required to be caMs from odd locations to aid tho 

instruction buffer refill inicro-codo in ro-oxecution following 

loading of the buffer. Tho macro RCALI [label] or RCAl.l. will 

cause a call to bo assigned to an odd location. 

% 

M0[CALL,IFSEe[#2//3, ,RF:TC1.0[1] JC@[5:i Wl@[//1] W20[,-H], 

F.R@[no. args. ai lowed, in . cal 1 ' s ]]?] ; 

M@[CALI.P,lFSF.0[//2//3, ,RETCL@[t] CHPAGtS[l] JCS[5] Wl@[//i;| W20[.+1J, 

Ef(0[no. args . al lowed, in . call p 's] ]?1; 

M0[RCALI., IFSE0[//2//3, ,RETC1.0[a] bDDCALL9[l] JC0[5] IFSEOj;//!, ,Wie[ , M] , Wl§[//i:|] , 

ER0[no. args . al lowed. in. rcall 's]]?]; 

M@[RCAL1,I'', IFSE0[//2//3, ,RETCL0[r| ODDCALL0[:l] C11PAGE0[1] aCS[5] IFSE0[,V1, ,W10[ . M] ,W10[//1]], 

ER0[iio. args. al lowed, in . real Ip' s]]?] ; 

M0[TASK,W10[.H] W20[.i-2] SET[TSKFLG0, 1] JC@[5] RETCL0[l]:i; 

M0[RETURN,1FSE0[A'1/V2, ,RErCL0[2] JC0[6] JA7@[0], 
ER0[no. args. al lowed. in . re turn' s]]7] ; 

M0[NOTASKRTN,IFSE0[//l//2, ,RETC10[2] JC0[OJ JA70[OJ, 
ER0[ no. args. al lowed. in. notaskrtn' s]]?l; 

M0[rginET,lFSE0[//l//2, ,RETCt.@[2;i JC@[G] JA;0[1]. 
ER@[no. args. al lowed. in . return's]]?] ; 

M@[DlSP,IFSE0[//2//3, ,.1C0{;7] Wl@[//1], 
ER0[no. args. a i lowed. in . disp ' s]]?] ; 

Me[DlSPP,IFSE0[//2//3, ,JC0[7] CHPAGE@[1] W10[//l], 
ER@[no. args . al lowed. in . dispp ' s]]?]; 
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MLU stuff: 

All! operations must be defined for (A, RB) op (0,1) 
% 



LU*-B,ALF0[O31.U]; 

LU^T,ALF0)[O]LUi; 

LU<-RB,AI.F0[1]LU]; 

LU-A,ALF(3[1]1.U'|; 

nBANDB,ALF@i2lLU]; 

AANDB,ALF@[Z]LU]; 

RBANDT,ALF@[2]LU]; 

AANDt,ALr@[Z]LU]; 

RBORB.ALFOiaiLUl; 

A0Rn,ALF@[3]LU]- 

RBORT,ALF0[3]Lui; 

AORT,ALF0[3]L.U]; 

RBX0RB,ALF@[4]I.U]; 

AX0RB,AL.F@[41LU'J; 

RBXORT,ALF0[4]l.ui; 

AXORT,AI.F0[4 jLU]; 

RB//B,ALF0[4]LU]; 

A//B,Al..F0[4"|LU]; 

RB//T,ALF0[4]lui; 

A//T,ALF0[4]LU]; 

RCANDNOTl5,ALF0[r,]LU]; 

AANDNO"fB,Al.F0[5"|LU]; 

RBANDHOTT,ALF0|;5]LUi; 

AANDNOTT,ALF0[!J]LU'|; 

RBORNOTB,ALF0[6]LU]; 

AORNOTB,ALF0[O]LU]; 

RB0nN0"rT,AI.F@[6]LUi; 

AORNOTT,Al_F0rG"lLU]: 

RBXNORB.ALFSI 7]LU]; 

AXMORB,ALr0[r|LU]'; 

RnXNORr,AI,F0[/]LU]; 

AXN0RT,ALF@[7]LU]; 

RB=B,AI.F0[7JLO]; 

A=B,ALF0[7]LU]; 

RB-T,ALF0[7Jl.U]; 

A=T,ALF0[7]LU]; 

RBil,ALF0[lO]LUl; 

An,AL.F0[lO]LU]- 

RBiB,ALF0| ll]l.U]; 

AtB,ALF0[:il]LU]; 

RB<-T,ALF0[lljLui; 

A + T,A1.F0[11](.U']; 

RBiB + l,ALF0[lZ]l.UJ; 

A+B+1,ALF0[12]LU]; 

RBiTH,ALF0[12]LU]; 

AH+1,ALF0[ 12JI.UJ; 

RB-1,ALF0[131LU]; 

A ■l,ALr0[ 13]LU]; 

RB B,A1 F0[14 1LU]; 

A-B,AIF0[ 14JLU1; 

RB-T,ALF0[14'|Lui; 

A-T,ALF0[14]LU]; 

RD-B-1,ALF0[15]LU]; 

A-B-l,ALF0[16jLuj; 

RB-T-1,ALF@[15"1I-Ui; 

A-T-l,ALF0[15lLU]; 

UF[16] UNASSIGNED 

RBSALUF0PB,ALF@[17]LU]; 
ASAIUFOPB,ALF0[17]LU]; 
RBSALUrOPT,ALF@[17]LUi; 
ASALUFOPT,ALF0[17]LU]; 



DOLang.mc 3-Wov-79 19:16:63 Page 14 



♦Macro executed after" assembling Instruction to default Wl 

SKT('0STS[1M,IMX9]; 

Mra[iMX0,SETicSFLG9,O"l 

l>H0[CHPGFLGe,l,CHf>AGR0[l] SET[(;HPGFLC0, 0] j 

II-EO)| frrWFLGO}, 1. ,XX113|.J] 

IFEe|'TSKFLG0,l,XXZ0[]] 

irAO[SWPAGE@,IFA0(Wls; , SFTrCMPGFLGI) , l]j] 

IFE0[REG[FLAG@,l,XX3@[i] 

XFESiRETMOCOODO, 1 , XXnef]] 

IFE@[RTNTOFl.G9,l,XX50["r| 

SEr[QRSilFLG0,O'|SE'f[Al.UTESTFLG0,O] ]| 
M0[XX1@,JC@[G] JA70fO] RETCL0[2] SET[RTNFLG0,O] 

SET[RTNrOFLG@,l]]; 
M0[XX20,SET[RTNFLG0, 11 SET[TSKFLG0, 0]] ; 
M0[XX30,IFFe[NOILKOKFLG0,O,'lFE0[FVAL0[ALF0],O, 

ER0[V/ARMING; , .no. register. 1nlGrlack]"|SET[REGIFLAG0, 0]SE r[N0ILKOKFI_G@, 0]]]; 
H0[XX'10,IFE0[FVAL0[JC01,6, 

ER0fERROR; . . ape . loaded. during . return]] SE f[RETNOGOOD0, 0]] ; 
M0[XX50,IFE0[ALU7ESTFt.G0,l, . 

FR0| ERROR: . ,alu. results . tes ted . following , return]] SE r[RrNrOFLG0, 0]] ; 
M0[fJaREGILOCKOK,SF.T[NOILKOKFLG9,l]]; 

"/-"TITLE" outputs the file name and the value of ILC on the .T.R file 

to help correlate error messages with sour-ce statements. It alse resets 

various assembly flags to standard states. 

% 

H0[TTTLE,(SETTAS!<[O] DI[!0[] TARGET0[ ILC0] 

SET[TSKFLG@,0] .SEt[RTNFLC0, 0] SETiCSFLGS , 0] SETfCHPCFLG© , 0] 

StT[l!EGIFLAG0,O] SETf RTNTOFLGO , 0] SEi[RETNOGOOO0 , 0] 

SrT[MOILKOKFLG@,0] MrDASINIT[] ) ] ■ 

M0[MIDASINIT,IFE0[INITFLG0,O,SET[INITFLG0,1] 

iMRESERVErO,0,2ilMRESERVE[0, 100, 21 1IMRESERVE[ 17,0,400'! 
LANGVERSIONi],]]; 

M0[DIB0,IFE0[MULTDIOFLG0,O,SET[MULTDinFLG0,l] 
VERSION[V0,O] V@[(VrRS0[l])]i]; 

M0[HGMIDASINIT,SET[INITFLG0, 1]]; 

M0[tANGVERSTON,SETrASK[17]RV[DOLANGVERSIOM,41,3]SETTASK[O]]; 

M0[MULTDXB,SET[MULTDIRFLG0,1]]; 

H@[EMD,ER0[END. . .ILC=.0,IP[ILC@]]]; 

SET[INITFLG0,O]; 

SET[MU1.TDIBFLG0,O]; 

■■If mode not Uefified, make It Pilot 
lDF0[AltoMode, ,SET[AnoModo, 0]]; 

♦This statement defines comments *// is Alto and *= is Pilot 
IFE0[A1 toMode,O,COMCHAR0[//],COMCHAR0[ = ]]; 

•Print Message telling Mode 

IFE0[A1 to(.todo,O,ER0[P i lot, 3.0. Microcode], ER0[A1 to/Mesa. 5.0. DO. Microcode]]; 

*Macros 

M0[OP(:ODE , AT[2001 , LSHTFT[//1 , 2]]] ; 

*Cycler-masker functions 

M0[FIXVA, BS0[3] FZ0[341] 1/1']; 

M@[Fonnl,lOF[//'l,17,l]]; 

H0[Form2, FiS0| 3] F7.0[342] //I]; 

M0[Form3,LDF[//l,16,2]]; 

M0[Form4, BS0[3i FZ0[343] //I]; 

H0[FormMinus4, BS0[3] FZ0[35ii //I]; 

M0[$RSetDispLo, AND0[ADD[LSHIFT[//1 , 14],#2] ,37 7]C]; 
M0[$RSetDispHi, AND0[ADD[LSHIFT[//1,14],//2J,17 74OO]C]; 

ER0[6/12/79--DOLang. version. 4]; *Print release date on .ER file 
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tit1o[dmdefs]; 

last. iiiofUfied by Jnrvis March 15, 



■•[)tK.S FO!', DISK MOO 31 

SKT rASK[DTASK]; 

* I/O register assloiimonts 
SET[DRUMb, I.S1IIH[UTASK, 4]]; 
SI;T[0PUT, ADDfDRUNO, 5]]; 
SF.T[IPUT, ADD[l)RUNO, 3]]; 
SET[DSKADD, G]; 
SET| DfiUFFEI), 5J; 
SET[DPRP, 4]; 
3ET[DPWP, 3]; 
SEIfnSKCMMD, 2]; 
SETtDSKCiRI-B, 1]; 

si;t[dskctrla, O]; 

SETfDID, 0]; 
SFTjORPWP, 11; 
SET[DSTATUS, 2'\; 
SElfoKID, 3]; 



• l( store assignments 
SET[DnBASE, ANi)0[6O, DRUNO]]; 
Ry[KDnta, ADD[DRDASE, 2]]; ' * WRl 
RVfKDatal, ADDfDRBASE, 3]]; 

RViUP, ADD[DR8ASE, 4]]; 
RV[WP, ADn[DPnASE, 5]]; 
RV^READHEMCOU^r^, AOD[DRI!ASE. G]]; 
RyiwHITEMfMCOUHr, ADD[DRDASE, /]]; 
RVIXP, ADD[1)R;3ASE, 10]]; 
RV[RPP, ADDfnRnASE, 11]]; 
RVrOCliADDRESS, ADDfORBASE, 12]]; 
RV[DCBADDRESS1, ADD[DRnASE, 13]]; 
RVLKBADDRLSS, ADD[DRBASE, 14]]; 
RVfKBADDRESSl, ADr.l[DRBASE , IS]]; 
RVfCOMMANDWORO, ADD[DRBASE, 16]]; 
RV[WR, AI)D[DRBASE, 17]]; 

* beware tlieso registers are recycled 
RV[DISKSTATUS, ADb[DRBASE, 2]]; 
RvfoLDDlSKADD, ADDfORBASE, 4]]; 
RV[SECTORWAKEUP, ADDfDRBASE, 5]]; 
RV[PR0CESSWAKLUPREG1,' ADD[DRBASE, 6]]; 
RV[DCB, ADD[DRBASE, 7]]; 
RViNEWDISKADD, ADD[DRBASE , 10]]; 
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DISKADO REG < 


r ODATA 




KOB *■ 


ODATA 






PRP <- 


ODATA 






PWP <■ 


ODATA 






CCSR 


f- ODATA 






DISK 1 


CTRLB ♦■ 


ODATA 




DISK 1 


CTRLA <-■ 


ODATA 




IDATA 


♦■ DISK 


ID 




IDATA 


<■ PWP/PRP/KOBST/KIBST 


IDATA 


<- DISK 


STATUS 




IDATA 


<■ KIB I 


[DISK READ 


BUFFER 



this tasks registers start hero 
MEMORY ADRESS 

READ POINTER FOR DISK 
WRITE POINTER FOR DISK 
READ MEMORY COUNT OF WORDS 
WRITE MEMORY COUNT OF WORDS 
CHECK OPERATION PING PONG POINTER 
Flags see below 
DCB ADDRESS 

DCBADDRESSLOCK ADDRESS 

DCB COMMAND WORD 
WORKING REGESTER 



STATUS WORD 

LAST SEEK POSITION 

SECTOR MASK 

POINTER TO NEXT DCO 
NEW SEEK POSITION 



SET[DRCBAS£, LSIIIFT[DRPAGE , 10]] ; * control store base address of DRPAGE 
SET[DCamniaiidBaso, ADD[ORCBASE, 100]]; * read, write, check field dispatch 
SET[OPingBasc, ADD[DRCBASE, 120]]; * ping pong dispatch 

HC[DTASK.l, LSillFTtDTASK, 14]]; 
MCidrpage.2, DRCBASE]; 

* RPP flags, context sensitive semantics for finding and transferring sector 
MC[Seoking, 1]; * seek in progress (note that same bit used for label flag) 
MC[ LabolFI ag , 1]; * processing label during sector transfer 

MCiPostlOCB, 2]; * write status into lOCB/process ing data field in transfer 

* RPP < implies disk error 

* RPP = implies processing header during sector transfer 

* CP states 
MC[ReadPing, 0]; 
MC[WritePing. IT; 
MCiCPRead, 2]; 
MC[CPChock, 3]; 
MC[CPWrite, 4]; 

* CTRLA functions 
MC[SelectiveReset, 1]; 
MC[ResetWakoup, 2]; 
MCiSetStrobe, 4]; 
MC[ClearSlatus, 10]; 
MC[ResetEverything, 13]; 

* CTRLB function - assumed that WakeupAllow is always on 
MCfWakeupAllow, 1]; 

HC[DataTaskAnow,"3]; 
MC[SendOiskAddress, 11]; 
MC[WakeMeEveryWord, 23]; 
MC[WakeMeForOutput. 43]; 

* Status register 
MC[SeekInProgress, 100]; 
MC[SeekFailed, 200]; 
MC[DataWake. 400]; 
MC[SectorWake, 1000]; 
MC[SectorMask, 170000]; • same for lOCB 

* CMMD 

MC[SetSeekIdle, 1]; 
MC[ReadllLD, 250]; 
MC[HeaderLabelDataMask, 374]; 

* CSB offsets 
SET[CSBNext, 0]; 
SET[CSBStatus, 1]; 
SET[CSBDiskAdr, 2]; 
SET[CSBSectorMask, 3]; 



* same for lOCBCommand 



lOCB word offsets 
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SEr[TOCnNoxt, 0]; 

StrilOCBStatus, 1]; 

StT[IOCnConiniand, ZJ; 

SEiriOCUlleadorCoi liter, 3]; 

SET[IOCDl.abe1Pointer, 4]; 

SET[TOCBDataPointer, 5]; 

SET[IOCBTran:;fei-Mask, 6]; 

SETflOCBErrorHask, 7]; 

SElf TOCBUnusofJ, 10]; * 11 for nxtendfld address I'orrnat. 

MC[IOCBDiskAdr, 11]; * 12 for extended address format 

SET[IOCBAddi-ossExtend, 10]; * high order bits of label and data address 

M@[$Labo1 Extend, LDr[//l, 0, 10]]; 

Mt'[$D.itaExtend, l.DF[//l, 10, 10]]; 

* lOCH status 

MC[I0CBStatusVal1d, 7400]; 
McflOCCTransferOk, 0]; 
MCCIOCUIIardwaroError, 1]; 
MC[TOCBChockError, 2]; 
MC[IOCBmegaiSector, 3]; 

* lOCB disk address 
MC[[OCnDrivo, 2]; 

* lOCD command 
MC[SeokOnly, Z]; 
MC[DriveHodifier, 1]; 

MCilOCBRead, 0]; * 2 bit command field for header, label, and data 
MC:[10C;BCneck, 1]; 
MC[10CnWrile, 2]; 
M(;[10CBWritel, 3]; 

M0[$Sua1, LDF[COMMANDWORD, 0, 10]]; ■' field extractor for seal 
M@[$ExtendBit, LDf'fCOMMANDWORD, 7, 1]]; * field extractor for extend bit 
HC[ValidSoai , 110]; * Seai=110 alto style deb, Seal=lU extonded address lOCB 
MCiExtendllint, 1]; 

* physical characteristics of the disk format 
MC[SoctorsPerTrack, 14]; 

McflleaderSize, 2]; 
MC[I abelSizo, lO'j; 
MC[DataSize, 400]; 

* disk address field extractors 
H(?[$Sector, Lt)E[7/l, 0, 4]]; 
M0f$Cyl inder, EDF[//1, 4, 11]]; 

M@[$Track, LDE[//1, 4, 13]]; • includes cylinder, head, and disk 
MaiSDisk, LDF[//1, 10, 1]]; 
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insQ rt[t!01 aiig") ; 

MOMCDASIN[T;i.ANGVERS;rON;MULTD[B; 
insert[G loba IDof s"| ; 
insQrt[DMDersJ; 

riTLE[DMInit]; 
*last modified by Jotmsson on April 7, 1979 12:30 PM 
«last modified by CPT on March 16, 1979 12:21 PM 

ON PAGF[DiskInifcPage]; 
settask[DIASK]; 

Dislclnit: WR+-13C, at[Disl<In i tLoc] ; 
OUTPUIfWn, DSKCTRLA]; 
KDatat- OC; 
KDatal*- OC; 
i!P<- OC; 
WP»- OC; 

ReadMoinCount*- OC; 
UritoHemCount*- OC; 
CP<- OC; 
RPP«- OC; 
DCBADDRESS<- OC; 
DCBADDRi:SSl<- OC ; 
CommandWord*- OC ; 
WR«- IC; 

OUTPUfiWR.DSKCTRLB]; 'ALLOW WAKE UPS 
KBADDRESS<- 400C; «KBaddress <• 521b 
KBAD()RLSS<- (KBADDRESS) i(121C); 
KBADDRESSl*- OC ; «biiild pointer to kbiocic 
1ondpage[drpage] ; 
GOrOp[lXSWTASK;];*v/in set tpc and return 



cnd[dmini t]; 
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insort[d01ang] ; 

MOMTDASINIT;LAMGVERSION;MULTDia; 
■insort[C1obn1Defs]; 
iiisert[l.iMOefs 1; 

TITLE [ex tended- add ress-DMTask] ; 
" last edit \yj Johnsson on April 7, 1979 12:31 PM 

* socond page oliin. I)y Johnsson on Marcii 15, 1979 5:40 PM 

* last modified by Jarvis on March 15, 1979 12:07 PM 

* Doint added by Johnsson on I^ebniary 16, 1979 12:63 AM 

ON PAGE[DRPAGE]; 

sottasklDrASK'l; 

M8[0NES.(ZER0")-1J; 

* sector wake up point if not transferinq data 
DSWTASK: 

call [cRoturn]; * allow task switch before subseijuent storage reference 
PrETCIIl[KBADORESS, DCBADDRESS, CSIiNcxt]; * get the link to the deb 

DSWAl: PR0CESSWAKEUPREG1< OC; * clear my interrupt regester 

T <- lOCIJDiskAdr, TASK; • set up for fetch of lOCDDiskAdr 
INPUT[DISKSTATUS, DSTATUS]; * get disk status, need sector information 
DISKSTATUS<-(D:tSKSTATUS) XOR (SectorMask) ; * sector complemented 
DISKSTATUS<(OISKSTATUS) OR ( lOCBStatusVal i d) ; • put in the 17 
PFtTCMl[DC[lADORESS, COHMANDWORD, XOCBGommand] ; • get the disk command 

0SVm2: l.U<-(RPPJ XOR (Seeking); 

GOTO[SeokService, ALU-^0], LU<-DCBA[)ORESS; * jump for seek in progress 
GOTO[SectorAll , ALU=0], WR *- ClearStatus; * Jump for NIL lOCB pointer 

* set WR for possible errors 

* process lOCB 

T <■ (SExtendBit) * (T); * now format lOCBDiskAdr displaced by one 
PFETGiLl[DCBAOORESS, NEWDISKADD]; • get the now seek info 
TASK, PFETCH1[KBAD1)RESS, OLODISKADD , CSBDiskAdr); * got old position 
T<-ValidSeal; 
T<-(ISeal) XOR (T); 

KDatal <■ T; * non-zero implies extended addressing 
G0T0[.+2, ALU//0], LU <■ (KDatal) XOR (ExtondlTin t ) ; 
G0T0[,+2], T'-SectorsPerTrack; • Sea l=Val idSeal 
G0T0[Inval idSeal , ALU//0], T<-SectorsPorTrack; * jump for invalid seal 
LU< ($Sector[MEWDISKADD l)-(T) ; 

GOToioSV/L, ALU> = 0], WR»-3C ; ' Jump for illegal sector, \i[i ^ garbage? 
lu <- conimandword, goto[.+2, r oven]; * tost Dri voModif ior 

newdiskadd <- (newdiskadd) xor (lOCBDrive); 
nop; * call cannot be even target of condtional 
TASK, PST0R£1[KBADDRKSS, NEWDISKADD, CSBDiskAdr]; 
T<-$Track[OLDDISKAOD]; " Is old track 

LU<($Track[NEWDISKAC)D]) XOR (T); * . . . the same as new track? 
G0T0[MovoArm, ALU//0], LU<-(C0MMANDW0RD) AND (SeekOnly); 
GOTO[JustScek, ALU//0], T«-$Sector[DISKSTATUS] ; * jump for seek only 
T<-($Sector[NEWDISKADD]) XOR (T), G0T0[DSWJ6, lOATTEN]; 
DBLGOTO[SectorAlll, AtSector, ALU//0], RPP<-OC ; * at' the right sector? 

"sector wakeup clean up 
SectorAll: NOP; 
SectorAlll: WR+SetSeekldlo; 

OUTPUT[WR, DSKCMMD], G0T0[DSWJ7, lOATTEN]; * SET SEEK IDLE COMMAND 

NOP; 

MOP;*two m-i after outputs 

* process sector interrupt mask 

PPETCI11[KBADDRESS, SECTORWAKEUP , CSBSecto rMask] , TASK; 

* allow task switch before proceeding storage reference interlocks 

T<-PR0CESSWAKEIJPREG1; 

T <- SECTORWAKEUP<-(SECTORWAKEUP)OR(T);* SECT INTERUPT MASK 
** checking lOATTEN causes endless loop ** 

PST0RE1[KBADDRESS, DISKSTATUS, CSBStatus]; • set current disk status 
** warning no tasking allowed from hero to the last pstoro before DSWC2 ** 

loadpage[0]; * got bits to OR into NWW 

callp[DoInt3 ; * set NWW and IntPending; uses regs 0,1; no task 

* get link to next DCB 

PFETCH1[DCBADDRESS, DCB, lOCBNext], CALL[ lOTask] ; 
LU *- RPi", GOT0[DSWCX, R> = 0]; • Check for error 

DCB «- (DCB) and (OC); * error, don't chain * insure road comp 

WR<-ones; 

PST0RE1[KBADDRESS, WR, CSBDiskAdr], CALL[I0Task] ; 

RPP <- PostlOCB; 
DSWCX: LU <- (RPP) XOR (PostlOCB); * check data loop or seek command 
G0T0[DSWC2, ALU//0]; 
LU«DCBADDRESS; 
G0T0[DSWC4, ALU = 0], LU<-DCBADDRESS; 

* just completed lOCB, post status and cdr the lOCB chain 

PST0RE1[KBADDRESS, DCB, CSBNext]; * new DCB pointer to kblock 

PST0RE1[DCBADDRESS, DISKSTATUS, lOCBStatus], CALL[IOTask] ; * into deb 

NOP;*why is this nop here??? 

T ^ DCB; • Chain to new DCB 

DCBADDRESS *- T ; * proceed if something there 
DSWC4: RPP^OC, G0T0[DSWA1, ALU//0]; * jump to process next lOCU 

NOP; • end of lOCB chain 
DSWC2: WR<-ResetWakeup; 

OUTPUT[WR, DSKCTRLA]; * RESET SECTOR WAKEUP 

WR*-WR, GOTO[DSWTASK]; * INTERLOCK!!!! 

* seek only " NO ERROR interrupt 

JustSeek: PFETCII1[DCBADDRESS, PROCESSWAKEUPREGl , lOCBTransferMask]; 
RPP<-PostIOCB, GOTO[SectorAlll]; 

* seek ill progress 

SeekServico: LU <- (DISKSTATUS) AND (SeekFailed) ; 

G0T0[SeekFai1ure, ALU//0], LU - (DISKSTATUS) AND (SeeklnProgress) ; 
G0T0[.+2, ALU//0]; 
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RPP+-OC, G0T0[DSW/\2'J; * seek dono 
GOrO[SectorAin]; 

* SQt arm in motion 

MoveArm: •r<-$Disk[OI.DDISKAD[)]; * StF. IF WE ARE CilAMGiWG DISKS 
LU<-($Disk[NEWDISKADD]") XOR (T): 

WR<SetSoekI(J1o, GOTO[Swi tcfiDrive, ALU//0]; * jump to switch drives 
OUTPUT[NFWDISKAI)D, DSKADD'l; • OUTPUT MEW SEEK INTO 
WRt-SeiKlDiskAddross, TASK; 

T*-$Cy lii)der[NEWDISKADD]; * CHECK FOR CHANGE IN TRACK ADDRESS 
LU*-($CylinderrOI.DDXSKADD.l) XOR (T); 
G0T0[.i-2, ALU//0], RPP«-Seeki ng ; 

PSTOREi[Kt!ADDRESS, NEWDISKAOD, CSHDiskAdr], GOTO[DSWTASK] ; * hd switch 
OUrPIJT[WR, DSKCTRLB]; * SET SEMD DISK ADDRESS 

WRt-SotStrobe; 

OUTPUT[WR, DSKCTRLA]; * sot strobo 
GOTO[SectorAir|, RPP<-Seeking ; » SET SEEK flag 

* switch drives 

SwitchDrive; OUTPUT[WR, DSKCMMD]; • SET SEEK IDLE COMMAND 
WR^-Rose tWakeup; 

OUTPUT[WR, DSKCTRLA]; • RESET SECTOR WAKEUP 
OUTPUT[ NEWDISKAOD, OSKADD]; * DISK CHANGE OVER 
WR«-ones ; 

T<-WR<-(V;R) XOR (lOCBDrive); • don't clobber drive 
NEWDISKADD<-( NEWDISKAOD) OR (T); 
PST0RE1[KBADDRESS, NEWDISKAOD, CSBDiskAdr]; 
GOTO[DSWTASK], RPP<-Soekinn ; * WE WILL RE-DO SEEK AFTER DISK CHANGEOVER 
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* on right soctor, prepnro for transfer 
AtSoctor: nop; 

TASK, PFETCHICDCBADDRESS, KDat.n, lOCRlleaderPoin ter] ; 

*lfanslat'3 alto stj/le rGad/check/wri to Into IHDC style 



Tito coinniafids foi' each 
Alto function IRDC 

00 road 10 

01 chock 11 
11 write 01 
10 writQ 01 



field ara as follows 
l.ct xa - high ordor bit of alto f Mnct ion 
Lot ya = low ordor bit of alto function 
Lot xi = high order bit of ItU)C function 
Let yi = low order bit of IPDC function 
then x1 = ~xa and yi - xa + Va 



* The old method uses 24. v/ords of code and executes 6 instruction to do the 

* command translation. Notice with awe that tho now method uses but 6 words 

* of code and excutos 6 instructions. 

T <- (COMMANDWORD) AND (MeaderLabelDa taMask) ; * get command f1old 

Wl! <- T; 

Wll ♦- (RSH[WR, 1]) OR (T); • shift high bits over low 

WR <- (Wfi) AND (i^'iC)^ * low order bits 

task.T «- (COMMANDWORD) ornot (250C); 

WR «- (WR) ornot (T); 

RP«-0C: 

T<-lloadorSize, CALL[SetShortF1ol dConstan ts]; 

WP*-OC, GOTO[DSWJ10, lOATTFN]; 

OUTPUT[WR, DSKCMMD]; 
Processl-iold: CP<-ResetWakoup ; 

OUrPUTfCP, DSKCTRLA"!; 

WRtnataTaskAllow; 

OUTPUT[WR, DSKCTRinj; 

CP<CPRead; * assume road 

DISPATCIIfCOMMAMDWORD, 10, 2]; 

DXSP[.+ri; * header, label and data all use this dispatch 
RF.AOMEMCOUNT«-0C, GOTO[ FieldAI 1 | , AT[DCommandOase , lOCDRoad!]; 
WR'WakeMoForOutput, GOTO[ChockFiold] , AT[DCommandnase , lOCBChock!]; 
WR<-WakcMeForOutput, GOTO[Wri teF ield] , ATLDCoimiiandBaso , lOCUWrite!]; 
WR<WakeMeForOutput. GOTO[Wri teField] , ATfDConimandBase , lOCBWritell]; 



* output command to disk 
reset sector wakeup 
set DATA TASK ALLOW 



* chock field on disk drive 
ChfcckFiuld: OUTPUT[WR, DSKCTRLBl; 
CP<CPCheck, G0T0[Fie1dAn ]; 



♦ FOR PRELOAD 



* write field on disk 
WritoFiold: OUTPUT[WR, DSKCTRLB]; 

(;P<CPWrite; 
WRITEHEHCGUNK-OC; 
WR<-1C; 
*"'**warning no tasking allowed between tho two outputs for buffer 
OUTPUT[WP, DPWPJ; * OUTPUT WRITE POINTER 

OUTPUT[WR, DBUFFER], G0T0[DSWJL12 , lOATTENJ; * OUTPUT SINC WORD 
WP<-(WP)tl; 

* road, write, and check all flow through here 
FieldAI!: T<- KData, cal l[cRetui'n] ; * allow task switch 

DISPATCH[CP, 15, 3], GOToioSWJL, lOATTFN]; 

WR<- T, DISP[.+1]; * set WR for storage alignment calculation 

CP^Wr1tePing,"G0T0[ReadDisk], AT[DPingBaso , ReadPing! ]; 

CPt-ReadPing', G0r0[Wr itoDi sk] , ^ 

CP<^CPRead,'GOTO[ReadDisk], 

T<-366C, GOTO[noCheck], 

CP*CPWrito, G0T0[Wr1teDisk], 



ATfOPingOase, WritcPing!]; 

AT[DPingRase, CPRead!]; 

ATlDPingBase, CPCheck!]; 

AT[DPingBaso, CPWrite!]; 



* Check field of sector 

* Microcode uses write logic, but hardware does not actually write on disk. 

* Both header and label fit in the 20 word hardware buffer. The header and 

* label code first copies the entire field into the buffer using the main 

* write loop. The hardware then reads the disk and leaves the result of tho 

* check operation in the buffer. The code then writes the results back into 

* the central store by falling into the main read loop. 

* The microcode tries to win on the data field, but the algorithm appears 

* buggy. Note that CP is set to CPRead when control falls out of the main 

* output loop. This prevents control from passing back through DoCheck. 
DoCheck: LU<-( READMEMCOUNT) -(T) ; * can't check too large a block of data 

LU<(RPP) XOR (PostlOCfl), G0T0[WriteDisk, ALU>=0]; 

CP*-ReadP1ng, G0T0[.>-2, ALU=0]; * bug? eventually resets CP to CPRead 

CP<-CPWr1te, G0T0[Wr1 teDisk]; * header or label 
VJR<-DataTaskAllow; * processing data field 
OUTPUT[WR, DSKCTRLB]; 
WR<-(WR), GOTO[FieldAll]; * STOP KOB BUFFER 

* output loop (read store and send data to the disk kob buffer) 

* [if quad align and wc>4 do 1ofetch4 else do output one] 

****** warning no tasking allowed between the output wp and tho buffer command 
WriteDisk: T <- ReadMeraCount ; 

WR «- (WR)+T; * WR has a copy of KData 

LU*-(WR) AND (3C); * CHECK QUAD BOUND 

G0T0[DDWP1, ALU//0], LU<-(ReadMemCount )-(4C) ; 

G0T0[DDWP, ALU<0], T <- (ReadMemCount)-l; 

* quad word write to d1.sk works hero 

WP<-(WP)+(3C) ; * next instruction allows write of WP before tho output 

ReadMemCount*-(ReadMemCount)-(3C), call [cReturn] ; • CHECK COUNT >3 

0UTPUT[WP, DPWP]; * OUTPUT WRITE POINTER 

nop; * two m-1 after output 

T *■ (ReadMemCount)-l; 

I0FETCH4[KData, OPUT], GOTO[DDWV]; * OUTPUT 4 WORDS 

* write a single word onto disk 
DDWPl: T *- (ReadMomCount)-l; 
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:)WP: PFETCHl[KData, WR]; • GF.T ONE FROM MEMORY 

OUTPUT[WP, DPWP]; * OUTPUT WRITE POINTER 

OUTPUT[WR, DBUFFER]; • OUTPUT ONE 

3WV: Rea(IMumCouiit«(ReadMeniCount)-l; * DOWN COUNT WORD COUNTER 

G0T0[,'-2, AL.U=0], WP<-(WP)+1; * Jump for end of fiolii 

G0T0[FieldAir|; 

CP«-CPRoad; * STOP WRITING 

WR<-D,itaTaskAl low; 

OUTPUT[WR, DSKCTRLB]; * STOP KOQ BUFFER 

l.Ut-WRITEMEMCOUNT, GfJTOCDDWUl]; 

input loop (wo road kib buffer and send data to the main stone) 
if quad align and wc>4 do then iostore4 else do input one 
if wc<4 sot force wakeup on one, in the disk and set cp = to one for 
te rniination 
•****warning no tasking allowed botweeii the output rp and the buffer command 
aadDisk: T *- WriteHemCount ; 

WR <- (WR)+T; • WR has a copy of KData 

LU^(WR) AND (3C); * CHECK QUADBOUND 

GOT0[DDW0, ALUZ/O], LU<-(WriteMcinCoun t)-(4C) ; 

GOTofuDWOl, Al.U<6i, T <- (WritoMemCount) ~1 ; * CHECK COUNT >3 

quad word read from disk works here 

WriteMeiiiCount<-(Wri teMemCount)-(3C); • 

RP<-(RP)f(3C) , call[cRETURN.l; 

OUTPUT[RP, DPRP]; * OUTPUT READ POINTER 

T <■ (WriteHemCount )-l; 

RP<-(RP) + 1; * invoke interlock so that pointer ok before data arrives 

lOSTOREILKData, IPUT], GOTO[DDWUJ; * INPUT 4 WORDS 



* road a single word from disk 
DDWO: T *- (WritoHemCount)-l; 
DDWOl: OUTPUT[RP, DPRP]; * OUTPUT READ POINTER 

RP<(RP) + 1; '" invoke interlock so that pointer ok before data arrives 

* INPUT ONE TO WR 

* PUI IT IN MEMORY 

* DOWN COUNT WORD COUNTER 



INPUTfWR, DKIB]; 

PSTOREJf KData, WR"|; 
DDWU: WriteMori!CouMt<-(WriteMemCount)-l; 
DDWUl: GOTO[EndFiold, ALU=0], LU<-RPP; 

LU<-RSil[WritoMemCount, 2]; 

G0T0[. + 2, A1.U//0], WR«^WakeMcEveryWord; 
OUTPUliWR. DSKCTRLB], G0T0[Fiol dAl 1 ] ; 

G0r0[FieldAll]; 

* dispatch for next field 

EndField: GOTO[StartLabel , ALU = 0] , LU<-(RPP) XOR (LabelFlag); 

GOTO[StartData, A!.U=0], RPP«-PostIOCR; * LABEL done, DO DATA 
GOTO[EndSector]; 

* prepare for the label field 

StartLabel: PFETCHlfDCBADDRESS, KData, lOCBLabelPointer] ; 
T<-LabelSize,' CALL[SotFiel dConstants]; 
RPPf-LahelFlag, GOTO[Nex tF ield] ; * flag for label 

* prepare for the data field 

StartOata: PFETCm[DCnADDRESS, KData, lOCBDataPointer] ; 

T<-DataSize, CALL[SatFioldCQnstants] ; 
NextField: COMMANDWORD^^LSH[COMMANDWORD, 2], GOTO[ProcessField] ; 

* clean up after a data transfer 

* ddwz+4 is the sector wakeup point after a data transfer 
*** warning must reset data task allow before tasking 
EndSector: WR<-WakoupAnow; 

OUTPUT[WR, DSKCTRLB]; * turn off data task allow 

WR <- WR, cal l[cReturn] ; * interlock on WR insures complete before task switch 

nop; * for the task, task must happen before this pfotch 

TASK, INPUT[DISKSTATUS, DSTATUS]; * status (after next sector mark) 

PFETCH1[DCBADDRESS, PROCESSWAKEUPREGl , lOCBT ransf erHask] ; " NO ERROR INTERRUPT MASK TO PROCESSWAKEUPREGl 

DISKSrAtUS<-(DISKSTATUS) XOR (SectorMask) ; 

DISKSTATUS-(DISKSTATUS) OR ( lOCBStatusVal id) ; 

WR<-ClearStatus, G0T0[DSWJL1, lOATTEN]; 

OUTPUT[WR, DSKCTRLA]; 

GOTO[SectorAll], RPP*-PostIOCB; 

DSWJLl: GOTO[DSWO]; 

* set counts and pointers for field processing, call with field size in T 
SetFi el dConstants: LU «- KDatal; 

ReadMemCount «- T, use CTask, GOTO[SetShortFieldConstantsl , ALU=0]; 

PFetchl[DCBADDRESS, KDatal, lOCBAddressExtend] ; 

WriteMemCount ♦- T; * avoid PFotch/pass around path problems 

LU <- (WriteMemCount) XOR (LabelSizo); * kludgy test for label or data 

G0T0[.+2, ALU=0]; 

KDatal ^ $DataExtend[KDatal] , G0T0[.+2]; 

KDatal <- $Label ExtendCKDatal]; 
KDatal *- T «- LSH[ KDatal, 10]; 
KDatal ^ ( RSII[KDatal , 10]) ^ 1; 
use CTask; 
KDatal «- (LDF[KDatal, 10, 10]) OR (T), return; 

SetShortFieldConstants: ReadMemCount «- T, use CTask; 
SetShortFieldConstantsl: WriteMemCount <- T, return; 

* task switch only for non-emulator wakeups 
lOTask: LU«-APCTASK; 

use CTASK, GOTO[cRETURN, ALU=0]; 
NOP; 
cRETURN: RETURN; 



* errors come here 
SeekFailure: NOP, GOTO[DSWJ]; 
DSWJ6: NOP, GOToioSWJ]; 



error entry points to DSWJ, error handler 
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DSWJ7: NOP, GOTO[DSWJ]; 

DSWJ10:NOP, GOTO[DSWJ]; 

DSWJ: INiH)r[DTSKSTATUS, OSTATUS]; * get disk status 

DISKSTArUS'(DISKSrATUS) XOR (SectorMask) ; * invert soctop liiro 
DI;;KSTATUS*-(DISKSTATUS) or (lOCBStatifsVal id)-, • install 17 for alto 
DISKSTAnJS«-(DISKSrATUS) 0» ( lOCBIIardwarcError) ; 

* orrciit ♦■ (errcnt) + 1 ; 

WR*-WakeupAnow; •***• warning this lias to 1>9 (fono bofore tasking 
OUrPUT[WR, DSKCTRLBJ; * cloar data task allow, it might bo set 

« GET ERROR MASK, TASK BUT OOMT CHECK ATTEN 

* the current status will be posted into kbiock and tho deb 
DSWM; RPPt-ones; * SET ERROR FLAG into state control 

nop;*two mi aTtor output 

PFETCIIl[DCnADDRESS, PROCtSSWAKEUPREG 1 , lOCBE rrorMas k] , cal 1 [cfteturn J ; 

* NOP; * allow task sv/itch beforo precoeding storago refaronco intorlocks 
l.U<DCBADDRESS; 

GOTOCDSWK, AI.U//0], WR*-ClearStatus ; 

PROCESSWAKEUPREG1<-OC; • clear my interrupt regoster 
DSWK: OUrPUT[WR, DSKCTRLA], GOTO[SectorAl 1 _] ; * DO A CLEAR STATUS 

* lOCD command not valid 

IiivalidSoal: DISKSTATUS^(DISKSTATUS) OR (lOCBCheckError) , GOTOr.DSWK]; 

* illegal sector 

DSWL:DiSKSTATUS<-(DISKSTATUS) OR ( lOCBIllegalSector) , GOTO[DSVi/M] ; 

DSWJL12:G0T0[DSWJ]; * error entry points 
DSWJL: GOTO[DSWJ]; 

cnd[dm] ; 
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TITLE[i:therDefs]; * Defs for DO nricrococie emulat, ing A ; fj Etliornut 

*La,st modified by Murray on Sfiptember Z7, 1979 4:03 AM, Add EldloT imer, ErReset, 

* modifioti by Jolinsson on February 15, 1979 4:01 PM 

SET TASK [0]; *For R addressing 

MC[F.ORosel,OR0[LSIIll"TrEOTnsk,4],O]]; 
MCiriRGset,OR(3[LSHIFT[FITask,4],0]]; 

* Ethernet I/O Address Registers 
Set[FIData, 3]; * Input data 
Set[ Finest, 1]; * Input data 

Soth'Status, 2]; * Status/State register (read) 

SuL[F00aUi, 1]; * Output data 

Set[FReadState, 2]; HC[ERState, 2]; * State register read 

SiitfrWritoStnte, 0]; MC[EWState, OJ; * State register write 

* State Register command v/ords 

HC(FSfitPurgoMode, 2(30"]; * Enables input 

MCiFSetOutputEOP, 107]; * Enables output. Jam 

M(:[FFriablolnput, 220'1; 

HC[FFnab1eOutput, 103"|; * Enables Jam 

HC[FDisableTnput, 200]; 

HCiFDisabieOutput, 100]; * Cioars OutputEOP, disables Jam 

MC[ED isableliiputOutput , 300]; * Disables input, output, clears outputFOP, Jam 

* Status bits 

SET [ESICOLL, 200]; * Receive r-detoctod collision (Jam) 

SET [FSODL, 100]; * Output data late (Underrun) 

SET fESXDF, 40]; * Input data late (Overrun) 

SET [ESOCOLL, 20]; * Transmitter-detected collision (Collision) 

SET [FSCRC, 10];^ ♦ Bad CRC 

SET [ESOFAULT, 4]; * Output DataFault (masked for now) 

SET [FSOPAR, 2]; * Output Bad Parity (masked Por now) 

SET [FSICMD, 4]; '" Input command issued ■** Hot in hardware: 

SET [FSOCMD, 2]; " Output command issued ** for Alto emulation only 

SET [FSIT, 1]; " Incof-rectly terminated packet (Bad Allginnent) 

MC[EISMASK, ESIDL, FSCRC, ESIT]; * Status bits reported for input command 
MCTFOSMASK, ESODL, ESOCOFL] ; ' * Status bits reported for output command 
MCiECMDBITS, ESICMD, FSOCMD]; * Command bits 

* R- registers for input and output task 

RVfFBasc, 0]; * Base register for first 61K space; and 1 used by Doint 

RV|FBascHi, 1]; 

RVffPiR, 2]; * Buffer base register 

RVIFPIRIIi, 3]; 

HVJI'.Count, 4]; * Main loop counter 

l!V[r;TFMP, 0]; * Temporary registers 

RV[ETrHPl, 6]; 

RV[FTFMP2, 7]; 

RVi;FFlag, ANb(§[ORet FSIII FT[FITask , 4] , 10] , 77] ] ; * input under output flag ( reg 10 of EITask) 

MC[pFRandomRog , 377]; * Number of random number (REFR register) 

MC['pl ONoL i fyReg , 340]; * Register used for timer notify 

'Dispatch table locations 

Set[FEBase, FSHIFT[EEPage , 10]]; 

Set[FESIOFoc, ADD [EEUaso, 20]]; * Dispatch location for SIO 

*Addross constants 

Set[FOStartFoc, ADD[LSIIIFT [EOPage, 10], 120]]; * Output , not i fy location 

Sot[EOTimerDonoLoc, ADD[FSHIFT [EOPago, 10], 130]]; * Output TimerDone notify location 

SetrFIStartLoc, ADD[LSIliFT [ElPage, 10], 140]]; * Input notify location 

Set[ EIAbortLoc, ADD[LSMIFT [ElPage, 10], 150]]; * SIO abort notify location 

* Control block addresses (for Alto emulation, relative to 600) 
MC[FPFOC, 0]; * Post location 

MCrEPLOCl, 200]; * Post location (relative to 400) 

MCiEBFOC, 1]; * Interrupt bit mask 

MC[EBF0C1, 201]; * Interrupt bit mask (relative to 400) 

HC[EEFOC, 2]; * Ending word count 

MC[ELFOC, 3]; * Load mask 

MC[EICLOC, 4]; * Input count 

MCiEICIOCl, 204]; * Input count (relative to 400) 

MCiEIPLOC, 6]; * Input pointer 

MC[EOCLOC, 6]; * Output count 

MC[EOPLOC, 7]; • Output pointer 

MC[EH1.0C, 10]; * Host address for address recognition 

MC[EIIL0C1, 210]; * Host address for address recognition (relative to 400) 

* Timer masks (slot is EOTask) 

Sol I ETimerRunning, 5]; * State 5 is simple timer 
Sot [ETimerldle, 4]; * State 4 is idle 
MC[EtimarMask, LSHIFT [ETimerRunning, 14]]; 
MC[EIdleTimer, LSHIFT [ETimerldle, 14]]; 

* ether constants required in both init atid code (Midas mesa only) 

* Microcode post codes (small integer in left half, ones in right half for XOR). 

* Note: value is complemented to get constant less than 8 bits. Use XNOR for formation of post code. 
MC[ESIDON, NOT@ [377]]; * Input done 

MC[ESODON, NOT® [777]]; * Output done 

MC[ESIFUL, NOT@ [1377]]; * Input buffer overflowed 

MC[ESLOAb, NOT0 [1777]]; * Load overflow 

MC[ESCZER, NOT@ [2377]]; * Word count zero in input or output command 
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MC[ESADRT, MOTS [2777]]; « Command aborted (by SIO) 

* Mi scon ancoiis 

MC[F.COLLMASK, 10000]; * Mask for- colHsicn dGtoction 
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insert[d01anq] ; 

NOM [DASIM.it ;LAMGVERSION;|.IULTDID; 

insort[GIoba1Det's]; 

insert^EtliopDefs] ; 

t itlo[i:thorIint]; 

*Last motlifiod by Murray on September 12, 1079 7:45 PM Add Duiivny Output task InU 
*Last modiCied by Johnsson on April 7, 1979 12:32 PM 

SET TASK [0]; *For r-egister addressing. This coda roaVly runs at task level EITask 

* ETHFJiNET INITIALIZATION subroutine (executed by EITask). 

* Win only bo called if there is an Etliernot board in the machine. 

* Road Ethernet ID from board and form constant to be returned by SID. 

ON PAGE [EthorlnitPago]; 

Elherlnit: T «- GETriSPEC[103] xor (377C), at[EtlierInInitLoc;| ; *Stkp (inverted) 

EOaso «- pEliostRegx; *EHostneg is in the emulator's R space 
Slkp <- EBase; 
Input[Stack,EIIIost]; 

Stack <- (Stack) AND (377C); * ID in right half 

Stack ^ (Stack) OH (77400C); 

* Compute value for EOMotify register, used for notify after timer wakoup. 

EBase <- ANDa|0377, EOT ime rDonoLoc ]C ; * Low 8 bits of APC 

EUase <- (EBase) OR (OR0[i shi rt[EOtask, 14] , AMD@[7400 , EOTimerDoneLoc]]C) ; * High 4 bits of APC 

EDaselli <- pEONot i fyRog ; 

Stkp *• EBaseHi, EBnseHi <- T; 

I <■ EBase; 

Stack <- T; 

RETURN, Stkp * EBaseHi; * restore Stkp 
*Noto - base registers are initialized each time input or output is started, so wo 
*do not need to do it here. 

RETURN, at[EtherOutInitLoc]; "Dummy Init for Out Task. 

ciul[otherini t] ; 
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iiisort[d01 ang'J ; 

NOMIDASINIT ; LANGVERSION ;MULTDIB ; 

iiir,ort[C1oba1Dofs]; 

irisort[tthcrDef s]; 

titlR[F.thBrTask]; 

*Last modified by Murray on September 27, 1979 6:21 AM, Update for split state rogistur 

* modified by Murray on Saptcmber 19, 1979 3:18 I'M, Turn off Timer 

* modified by Cliang on May 31, 1979 1:09 PM, MIDAS Ovoriny 

■" modified by Cbang on May 20, 1979 2:01 PM, nail down EtSIO 
•• modified by DRD on Marcli 23, 1979 10:34 PM 

* addod RS232 SIO code dispatch 

* Modified by Johnsson on April /, 1979 12:33 PM 

SET TASK [0]; 

* EMULATOR TASK -- SIO instruction 

ON PAGE [EEPage]; 
*Tbis codo executes at task 

* We got here after the SIO instruction has been issued, 
*rho SIO control bits are in T (bits 16,17). 

* Get host address constant foi' Ethernet 

*RTEMP1 = 1 if called from Mesa, if called from Nova 

■'This code is really part of the emulator, and uses its temporary registers 

EESIO: ACO <- T, a t[ EEStartLoc] ; "save control bits (useful only if called from Mesa) 

T <- LDFiACO, 10,2]; 

RTemp <■ ANUC')[377, RS232SIOLoc]C ; 

RTemp <- (RTonip) OR (OR@[LSIIIFT[ 16 , 14 ] , AND@[007400 , RS232SI0Loc]"|C) ; 

RTomp <^ (RTemp) OR (T); 

APC&APCTask <- RTemp, TASK; 

Return ; 

T <r 177C; 

T <- (ldfrEHostReg,0, 10]) xor (T); *these bits will be l/7b if the init code was nui 
'*(i.o. if there is an Ethernet board in the machine), and will bo i:oro otherwise 

T <- EllostReg, goto[EESIODisp, ALU=OJ ; 

ACO <• OC; 

ACO <- (ACO) xnor ( lOOOOOC) , goto[EESIOO] ; '"return 77777b in ACO if no Ethernet board 

* Dispatch on low 2 bits of ACO 
EtSIODisp: Di spatch[ACO , 16 , 2] ; 

ACO «• T, DISP [EESIOO]; * Host Address 

* 00 — Do nothing 

EESIOO: lu <- RTEHPl, dblgoto[ EEHosaRet , EENovaRet , Rodd] , AT[EESIOLoc, 0]; 

EENovaRet : loadpage[nePago]; 
FF18[17], gotoi)[neNoskipi; 

EEMosaRet: loadpago[7]; 
gotop[P7Tail]; 

* 01 -- Start transmitter 

* Form APC&APCTask word to notify the output inicrocodo 

EESlOl: RFEMP ♦• ANDer0377, EOStartLoc jC , AT[EESIOEoc, Ij; * Low 8 bits of APC 

GOTO [EESIONot ify], RTEMP <- (RTEMP) OR ( OR0[ 1 sh i f t[ FOTask , 14 ] , ANDf)[007400 , EOSta rtLoc];jC ) ; 

* 10 -- Start receiver 

* Form APC&APCTask word to notify the input microcode 

EESI02: RTEMP *- AND@[0377, EIStartLoc'|C , ATfEESIOLoc, 2); * Low 8 bits of APC 

EESI02A: GOTO [EESIONot i fy] , RTEMP <- (RTEMP) OR ( OR0[ 1 s hi f t[ EITas k , 14] , AND0 [007400, EIStartLoc]]C) ; 

* 11 -- Reset interface, i.o. abort. Input task is notified to post abor-t. 

EESI03: G0T0[EESI02A], RTEMP <- AND@[0377, EIAbortLoc]C , AT[EESIOLoc, 3]; * Low 8 bits of APC 

* Notify appropriate code 
EESIONotify: 

RCNT <- AND(a[E0Task,17]; 

RCNT <- (RCNT) + ( EldloTimor) ; 

LoadTimor[RCNT]; 

T «- EOReset; 

RCNT *- (EDisablelnputOutput); 

OUTPUT[RCNF]; 

CALL[ETaskRet], APC&APCTASK <- RTEMP; 

lu ^ RTEMPl, dblgoto[EEMosaRet , EENovaRet , Rodd] ; '"control returns to Iiero when emulator next runs 



* INPUT TASK MICROCODE 

ON PAGE [ElPage]; 

* Input microcode is notified at ElStart by the emulator (at SIO). 
■" Some initialization is done, and the IPC set up to EIIDLE. 

'* Initialize, enable hardware, and TASK 

ElStart: CALL [EINIT], ETemp <- EEnablelnput , AT [EIStartLoc] ; 

'• Wake up here when first word of a new packet arrives. 

* Address filtering. 

EIIDLE: INPUT [£Temp2, EIData]; *' Read in first word 

T <- RSH [Ereiiip2, 10]; * Right justify destination host in T 

SKIP [ALU//0]; * Check for broadcast 

GOTO [EIDegin], EFlag «- IC; * Broadcast packet 

PFetchl [EBase, ETempl, EHLOC!]; * Fetch host address 

LU <- (ETempl) XOR (T); 

SKIP [ALU//0], LU <- ETempl; '" ALU=0 => destination host = me 

GOTO [EIBegin], EFlag «- IC; * Packet for me 

GOTO [ElPurge, ALU//0]; * ALU=0 => host is promiscuous 

GOTO [EIBegin], EFlag <- 10; * Packet for me 

* Packet not accepted by filter, so tell hardware to ignore the rest of this packet. 
■• Purge packet, and TASK 

ElPurge: ETemp <- ESetPurgeMode; 
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OUTPUT [ETemp, EWrl teState] ; 
CALI-[ETaskRet]; 

* Makeup here at start of next packet 

GOrO [EIIDLE]; 

* Packet accoptod by filter. 

* EFLAG is set to 1 to toll the output microcode that a packet came in 

* (used for Input under output). 

* Disable output task if it is on (probably in retransmission wait). 
EIBogin: T <■ EOl^eset; ** 

ETempl <- EDi sableOutput ; 

* OUTPUT [ETempl]; Oops, kills us, not him. 
CALLL'ETaskRefJ; 

* Set up EPtr and ECount for single word transfers. 

CAH,[EDSolup], T '- EICLOC; * Set up EIPTR, ECount 

* Subroutine returns with; EPtr -- IPtr ^ ICount - 1, ECount - - ICount 

* Check if buffer count zero. If not first word gets stored in EIAlign loop. 

GOTO [ElCountZoro, R>=0], T <- ECount <- (ECount) + 1; * R> = -> count is zero 
' Chock buffer alignment. 

* Compute liow many singles before first quadword, and form loop counter in ETempl. 

* Address: xOO => no singles, loop count = -1 

* Address: xOl --> 3 singles, loop count = 2 

* Address: xlO ■■> 2 singles, loop count = 1 

* Address: xll => 1 singles, loop count = • 

T <■ (EPtr) + (T) H 1; * Form start address in T 

ETempl <- (ZERO) - (T); * Complement, increment 

ETempl <- (LDF[ETempl, 16, 2]) - 1; 

CALL [EIAlignE], T <- ECount; • Set return for EIAlign loop 

EIAlign: GOTO [ETQuad, R<01, ETempl »• (ETempl) - 1; 

GOTO [EIBufFulll, R> = OJ, T <- ECount <- (ECount) i 1; 

INPUT [Eromp2, EIl)ata"|; 

LU «- ETemp2; ' * Abort 

EIAlignE: RETURN, PStorel [EPtr, ETemp2;|; 

* Now start guadword output. 

* Adjust EPtr and ECount for l-word transfers. 
EIQuad: ECount - (ECount) + (3C); 

CALL [EILoop], EPtr <- (EPtr) - (6C); * Set return address for ElLoop 

* Read tlie Hardware Input Buffer into the Main Memory In f3uffer. 
EILoop: GOTO [EIQuadFull, R>-0], T <- ECount < (ECount) + (^C); 

GOTO[EIAttn, lOATTEN']; 

RETURN, I0Store4[EPtr, EIData]; 

* Get here when no more room for quadwords in buffer. 

* Check lOATTEN is high to see if end of packet. 
EIQuadFull: GOTO [EIAttnl, lOATTEN]; 

* Not end of packet. Do singles to fill buffer. 

* 7-ECoin)t = number of singles remaining in buffer. 

' Set up loop counter as (~ No. singles), and road in singles. 

ECount <- (ECOunt) - (7C); 

CALL [ElSingles]; 
ElSingles: GOTO [EIDufFuH , R>=0], ECount <- (ECount) + 1; 

GOTO [EIAttnS, lOAILEN], T <- ( ECOluU ) + ( 6C ) ; » Sot up T for PStorel 

INPUT [Efemp, EIData]; 

LU <- ETemp; 

RETURN, PStorel [EPtr, ETemp]; 

* Wo get here when lOATTEN is detected in EILoop. 

* Number of word loft in buffer " I - ECount + 1 (CRC) ^ Excess count. 
EIAttnl: NOP; 

EIAttn: INPUT [ETemp, EStatus]; * Road Status 

T <^ LDE[ETomp, 10,2]; * Isolate Excess Count 

ECount <- (ECount) XNOR (OC); * Complement 

ECount <- (ECount) ^ (IIC); * Increment, add 8 

ECount ♦- (ECount) + (T); * Add excess count 

EIAttn2: 

* T <- ETemp; 

* ETemp <■ (ETemp) AND (124'IOOC); 

* SKIP [ALU'O]; 

* NOPZDliEAKPOiNTZ; 

* ETemp <- T; 

ETemp <- (RSII[ETomp, 10]); * Shift down status 

ETemp <- (ETemp) AND (EISMASK); * Mask out uninteresting status bits 

ETemp <- ( ETemp )XNOR( ESIDOH) ; * Post input done status 

* Store EECLOC, 

ElPost: CALL[ETaskRet], PStorel [EBase, ECount, EELOC!]; 

* Post status, disable interface (purge packet too), and TASK. 

* Post status in ETemp, disable value in ECount. 
EIPostA: ECount <- EDisablelnput , CALL [EPost]; 

* End of packet. 

EBaselli *- OC; *rcpair base registes smashed by EPost (Doint) 

EBase «■ 200C; 

EBase «- (EBase) or (400C), GOTO [EIIDLE]; 

* Get here when an lOATTEN is detected during the ElSingles loop. 

* Number of words left in buffer = 1 - ECount + 1 (CRC). 
EIAttnS: ECount <- (ECount) XNOR (OC); * Complement 

ECount <- (ECount) + (3C); * Increment, add 2 

GOTO [EIAttn2], INPUT [ETerap, EStatus]; 

* We get here when the input buffer is exactly full. 

* First chock if lOATTEN is high, indicating that the last word was the CRC. 
EIBufFulll: NOP; 

EIBufFull: SKIP[NOATTEN], ETemp *■ IC ; 

GOTO [EIAttn2], INPUT [ETemp, EStatus]; *Last word input was CRC 

* Read one more word to seo if the next is tiie CRC word (which we will discard). 

ECount <- OC; * No words left in buffer 

CALL[ETaskRet], INPUT [ETemp, EIData]; 

* After wakeup, check lOATTEN. 

NOP; * Can't check for Attn here 

GOTO [EIAttn2, lOATTEN], INPUT [ETemp, EStatus]; • lOATTEN => Word was CRC 

ETemp <- OC; 

GOTO [EIPOST], ETemp ♦- (ETemp) XNOR (ESIFUL); * Input buffer overrun, post status 
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* Get here 11' Input buffer lias zero v.'ord count. Post. 
ElCOuntZero: ETemp ♦- OC; 

GOTO [ElPost], ETcmp «■ (ETemp) XNOR (ESCZF.R); 

* Input inicrocorlo 1s notified liero by emulator S.tO wlian y\C0[t6:17] = 3. 

* Manufacture "Abort" status and post. (Input hardwaro will be disabled again, which doesn't matter.) 
EIAbort: EQasclli *■ OC , AT [EIAbortLoc'J; * Set up base pointer to loo 600 

EBaso <- 200C; 

EBase <- (EBase) OR (400C); 

ETemp *- ECMDDITS; 

GOTO [EIPostA], ETemp «- (ETemp) XMOR (ESABRT); 

* Aito-emulation OUTPUT MICROCODE 

* Output microcode 1s notified at EOStart by the emulator (at SIO) . 

" Some initialization is done, and the TPC set up to EOXDLE, er.able hardware and TASK, 
restart: CALL [EINIT], ETemp *- EEnabioOutput , AT [EOSlartl oc]; 

* Idle state of the Ethernet output task 

EOIDLE: PFetchl [EBase, ETempl, ELLOC!]; * Ketch current load 

SKIP [R>=0], T *- (LSU[ETompl , 1]) + 1; * Form new load, chock if old overflowed 

GOTO [EOLDOVJ, ETemp <- OC ; • Post Load overflow status 

ETemp *■ T; * Store updated load In ELLOC 

T <- ELLOC, TASK; 

PStorel [EBaso, ETemp]; * Store new load 

* Compute countdown interval 

* Get random number from "random" I'ogister (REER register used). 

T «- Stkp; * Save Stkp and 

ETemp2 <- pERandoiiiRcg ; * point to "random" register 

Stkp <■ ETemp2, ETomp2 <- T; 

T «- LDF [Stack, 4, lO]; * Get bits 1-13 

Ereinp2 <-'(ETemp2) XOR (377C); * Complement Stkp vaiuo 

Stkp <- ETemp2; * and restore 

ETempl *- (ETempl) AND (T) ; * Mask random number (ETempl has Load mask) 

GOTO [EOSetup, ALU^OJ, ETempl <- LSH[ ETempl , 1] ; * Scale for 5.44 us ticks 

T < (LDF[ETofflpl, 7, 2'J) - 1; 

ECount ♦- T, TASK; ' * Save high part (minus 1) (2 bits) 

EFlag *- OC ; * Clear Input under Output Flag 

ETempl <• LDF[ETempl, 11, 7]; * ETempl now has low 7 bits of random number 

* Before starting timer, check if input is set up. 

* If the inpirt word count is nonzero, enable the receiver while waiting to transmit. 

PFetchl [EBase, ETemp, EICLOC!]; 

LU •- ETemp ; 

T <- EIReset; 

SKIP [ALU = 0"], ETemp <- EEnablelnput ; 

OUTPUT[EIempi; 

ETemp < EDisableOiitput ; * ALU=0 => no input set up 

OUTPUr [Elomp, KWrituState]; 

* Start simple timer with low 7 bits of random number. 

* Timer slot is EOIask. 

EIemp2 <- ETimerMask; * Compute timer word 
T <- CTASK; * Timer slot is same as output task no. 
T <- (ETemp2) OR (T); 
EOLoadTimer: ETempl <- LSII[ETempl, 4]; 
ETempl < (ETempl) OR (T), TASK; 
LoadTimer[ETempl] ; 

* Timer has expired. Check if input (under output) came in. 

EOTimerDone: GOTO [EOHoreTime, R EVEN], LU «- EFlag, AT [EOTimerDonoLoc] ; * Check if pkt came in (EFlag = 1) 
ETemp <- EDisableOutput ; * If so, abort output 
OUTPUT [ETemp, EV/riteState] ; 
CALL[ETaskRet]; 
NOP; 

* Check if still more time to elapse before start of transmission (High part of random number >-0). 
EOMoreTime: ETempl <- 177C; * Set up maximum timer value 

GOTO [EOLoadTimer, R> = 0], ECount «- (ECount) - 1; 

* Enable output and shut off the receiver (in case It was turned on). 
EOBegin: T <- EIReset; 

ETojnp *- ED isablelnput ; 

OUTPUT[ETemp]; 

ETemp <- ( EEnabl eOutput ) ; 

OUTPUT [ETemp, EWriteState] ; 

* Set up EPtr and ECount for single word transfers. 
EOSetup: T «- EOCLOC; 

CALL[EBSetupJ; 

* Subroutine returns with: EPtr = OPtr + OCount - 1, ECount = -OCouiit 

* Check for zero count, 

GOTO [EOCountZero, R> = 0], LU <• ECount; * R<0 ^O count is zero 

* Compute how many singles before first quadword, and form loop counter in ETempl. 

* Address: xOO -> no singles, loop count = -1 

* Address: xOl -> 3 singles, loop count = 

* Address: xlO => 2 singles, loop count = 1 

* Address: xll => 1 singles, loop count = 2 
T «- ECount; 

T *- (EPtr) + (T) + 1; * Form start address in T 
ETempl <- (ZERO) - (T); * Complement, increment 
CALL [EOAlign], ETempl «- (LDF[ETempl, 16, 2]) - 1; 
EOAlign: GOTO [EOQuad, R<0], ETempl <- (ETempl) - 1; 
GOTO [EONoMorel, R> = 0], T <- ECount «- (ECount) + 1; 
PFetchl [EPtr, ETemp]; 
LU <- ETemp; * Abort 

GOTO[ERet], OUTPUT [ETemp, EOData]; 

* Now start quadword output. 

' Adjust EPtr and ECount for 4-word transfers. 
EOQuad: ECount <- (ECount) + (3C); 

CALL [EOLoop], EPtr <- (EPtr) - (6C); * Set return address for out loop 

* Output from the Main Memory Output Buffer to the Hardware Output Buffer. 
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EOLoop: GOTO [COOuaclEmpty , R>-0|, T <- ECoiint <■ (ECouiit) ■>■ (1C); 
GOTO [EOAbort, XOATTEN]; 
RETURN, lOFGtch'I [EPtr, EOData]; 

* Normal exit from Output Loop is horo 

* 7 - XWCount - ruimbor of singles remaining 

* T is set up for next iocatioii. 
EOQuailEmply; ECount *- (ECoiint) XOR (7C); 

CALL[E0Sing1es], ECount *- (ECount) - 1; 
EOSingles: GOTO [EONoMoro, R<0], ECount <- (ECount) - 1; 

PFotchl [EPtr,' ETempl; 

T <- (ZERO) I- (T) ^ 1, ETenip; • Abort 

GOTO[ERot;|, OUTPUT [ETomp, EOData]; 
' We're done oulputing v/ords. Sot output EOP. 
FONoMorel: NOP; 

EONoMoro: ETcnip <• ESe tOutpu tEOP; 

OUTPUT[ETonip,EWri testate]; " Set OutputEOP 

CALE[Eta,skRet]; 

* Should be woken up here after hardware's done sending packet or an error 



EOEND: 
EOENDl: 



INPUT [ETeinp, EStatus] 

T *- ETcmp; 

ETonip <- (ETomp) AND (53000C); 

SKIP [ALU-0]; 

NOP ZDREAKPOINT%; 

ETenip <- T; 

LU «■ (ETernp) AND (ECOLLMASK); 



Read Status 



BREAK - Bad Ouput Status 



Look at col 1 ision bit 
GOTO [EOCOLL, ALU//0 ] , ETompf-EDi sabi oOutput ; * ALU//0 => Collision, try again 

* If not collisioii, form status. Could be good packet or underrun (ODE). 

ECount < OC; 

ETomp <- RSII[ETemp, 10]; * Shift down status 
ETomp «• (ETcmp) AND (EOSMASK); * Remove uninteresting bits 
Eionip «- (ETomp) XNOR (ESODON); 
EOPost: CALLi ETaskRet], Pstorol [EOase, ECount, EELOC!]; * Store end count 
ECount < EDisableOutput, GAEL [EPost]; 
GOTO[. JZBREAKPOINTZ; * Shouidn't got here. 

* We arrive hero after an lOATTEN is detected in the main loop, indicating an error condition. 

* lOATTEN win be true if a collision or underrun lias occurred. 
EOAbort: GOTO [EOENDl], INPUT [ETomp, EStatus]; * Now read status 

* Collision encountered, disable hardware to clear collision, enable and try again. 
EOCOLL: OUTPUT[ETemp , EWri teSlate] ; 

ETempl < EEnableOutput ; 
OUTPUT[ ETempl, EWriteState] ; 
CAI L[EfaskRet]; 
GOTO [EOIDLE]; 

* Load overflow, post status (NOT [ESLOAD], ETomp is 0) 
EOLDOV: GOTO [EOPost], ETomp < (ETcmp) XNOR (ESLOAD); 

* Output buffer count is zero. Post (NOT [ESCZR]). 
EOCountZoro: E fomp *- OC; 

GOTO [EOPost], Cfemp <- (ETcmp) XNOR (ESCZER); 



* Task-independent Subroutines 

* Subioutine [EPost]; 

* Posts the command completion, and wakes up driver. 

* Expects post code and status in ETemp. 

* ECount has disable code to be sent to State register. 

EPost: PFetchl [EBase, ETemp2 , EBLOC!]; * Fetch wakeup mask; 

PStorel [EBase, ETonip, EPLOC!]; * Store ending status in EPLOC 

* Now wakeup driver. 

NOP; • wait for write of ECount 

OUTPUT [ECount, EWriteState]; 

LoadPage[0]; 

T *- (ETemp2) or (100000c), gotop[DoInt] ; * Get wakeup mask from ETemp. 100000c means tasking return 



Subro 
Set u 
On en 
Subro 



« The 
* Subro 
EBSETUP 



utine [EBSetup], 

p EPtr and ECount register. 

try T has pointer to EICl.OC or EOCLOC. 

utine returns with: 

EPtr = Buffer Pointer + Count - 1 

ECount = - Count 
ppropriate input or output pointer and count locations aro used, 
utine knows that EIPLOC = EICLOC + 1, and EOPLOC -" EOCLOC + 1. 
ECount]; 



PFotchl [EBaso, 
NOP; 

T <- (ZERO) + (T) H- 1; 
PFetchl [EBase, EPtr]; 
T <- (ECount) - 1; 
EPtr <- (EPtr) + (T); 
RETURN, ECount *- (ZERO) 



(T) 



* Fetch count 
So T can be written 
Point to ExPLOC 
Fetch pointer 

Ptr <- Ptr + count - 1 
; " Count ♦- - Count 



' Subroutine [EINIT]. 

* Initialization subroutine. 

* Called by both input and output task. 

* ETemp contains the enable code to be used to enable the hardware. 
EINIT: EDaselLi <- OC; ■• Set up base pointer to loo 600 

EBase <- ZOOC; 

EBase *- (EBase) OR (400C); 

EPtrlli «- OC; * Set up high part of Buffer pointer 

GOTO[ERet]. OUTPUT [ETemp, EWriteState]; 



• These instructions used for Tasking after OUTPUT instructions. 

ERet: NOP; 

ETaskRet; RETURN; 
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niicl[other]; 
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insertl'dO'lany]; 

NOMTOASINIT;l.AMGVERSION; 

insort[G1obainers] ; '"task and pago assignments 

T:[TLi:.[rauUllnn(rior]; 

"Inst edit by Joiinssoii, Octoljer 15, 1979 10:44 AM, Af! 2369 

* edit by KoMiiady, October 13, 1979 2:07 PM, Allow 16-bit fault codes 

* edit by Kennedy, October 3, 1979 9:15 AH, Update MP Codes 

* edit by Cliang, August 22, 1979 0:01 PM, M0BCrash = 212t!/138D, fix l.ogSF. 

* edit by Johnsson , ' Juno 27, 1979 8:21 AM, Log MC2 errors if l.ogSE 

* edit by Johnsson, Juno 18, 1979 5:19 PM, new Midas 

* edit by Chang, May 21, 1979 2:33 PM, nail down StartMomlTap 

* edit by Johnsson, May 10, 1979 9:42 AM 

" split off from Initialize by Johnsson, April 4, 1979 

"Crror Codes for Fault Handler 

MC| CrashOr'fset , lOOOJ; * Offset for upper O-bits of fault codes. 

MCrPCSCrash,330 I; * 728(1 - « or CS parity error 

MC[0PCrash,331]; * 729d - Real Breaakpoint 

MC[MO0Crash,342 1; * 738'J - Map Out of Rounds 

MC[H'lPECrash,333J; • 731d •■ H4PE 

MC[M0B&H4PECrash,334]: * 73?d - MOL! and H4PE 

MC[MC2Crash,330]; * 733d - got an MC2 error when unablo to handle it by liETlJRNing 

MC|MC22Crash,33fr|; * 734d • 2 MC2 errors 

MC[MClCrash,33/]'; * 735d - MCI fault when emulator couldn't accept it 

MCil PCrash ,340]; " 736d - Fault from the instruction following a l.oadPage 

MC[StkCrash,341]; * 737d - Stack ove r/tniderf low 

MC[fJSLkCrash,3e]; * Complemont of StkCrash (8 bits) 

*Fault handler 

*This code starts at location 120, task 17. 

'Control gets here from the kernel as soon as the state has been saved. 

•This code determines what to do based on the typo of error, and the bits in FFAULT. 

*nits in FFAULT are: 

* 0: MC2 errors PETURN if 1, crash if 

* 1: Midas is present (1), so "crash" moans breakpoint, else put a 

* code in MP and halt. 

* 15: MCl/StackOvf errors handled by notifying PFEntiy in emulator (1), 

* or by crashing (0) 

* breakpoint means notify task 17, location 7514 (Kernel location CPSEND). 

OnPago[0]; 
SetTask[17 1; 

RV[PipeRog ,60] ; *Pipe Ram Entry goes hero 

MC[pPipeRog,360]; 

HCJpP iponeg2,362i; 
RV(Pipeneg4,04]; 
RV[PipeReg5,05]; 

SET[li4Disp,240]; 
SET[Mc2ErDisp,260]; 

FauUStart: lu <• (RXPPB) and (3000c), at[120]; 'test R & CS parity 

goto[RCSErr, ALU//0], lu *- (RXPPD) and (400c); *test memory error 

(|oto[MC12Err, ALU/ZO] , lu «- (RXPPB) and {4000c); *test stack ovf 

goto[TryBP, ALU=0]; 
StkEr; FFAUIIt, dblgoto[MClNot i fyEmul ator , Crash, ROOD], T <- StkCrash; *can emulator take fault? 
RCSErr: T <- RCSCrash, goto[Crash]; 
TryDP: T ^ DPCrasli, goto[Crash]; 

*Get here with error code in T. If Midas is present, breakpoint. Otherwise, put 
*tlie code into the maintenance panel and halt. 
Crash: lu <- Idf [FFAULT, 1 , 1] ; 

goto[Midas ,ALU//0],PipeRog5 *- ( 1 sh[PipeRegO , 10] ) or (T); *save error code in riglvt half of PipeRcgO 

RTMP «- CrashOffset; 

T <- (RTMP) H (T), can[PNIP]; *add offset to fault code and then display it 

goto[.]; 

Midas: lu <- Idf [RXPPB , 4, 4] ; • tost parity register 

RTMP t- 177400c, skip[al U//0] ; *»otify Midas at /510b or 7512b 

RFMP <- (RTMP) OR (HOC), goto[MidasNotify] ; *Go overlay 'Break' 

RTMP *- (RTMP) OR (112C); *Go overlay 'MidasFault' 
MidasNotify : 

APC&APCTASK «- RTMP; 

RETURN; 

MClZErr: 

Stkp *- RXSTK; * not stack error, restore pointer 
ReadPipe[PipeReg]; '*got A pipe 

Dispatch[PipeReg, 4,2]; *dispatch on H4po , HapBnd 
Dispatch[PipeReg,0,2], Disp[NoH4BndEr] ; 'dispatch on MC2ErA', MC2ErB' 

NoH4BndEr: Disp[MC2ErAB] , lu *■ (PipeReg) and (20000c), AT[H4disp , 0] ; "test MClErA* bit 

BndEr: T <- MOBCrash, goto[Crash], AT[H4disp , 1]; "MOB error only 

H4Er: T ♦- H4PECrash, goto[Crashi, AT[H4di sp, 2] ; *H4PE only 

H4BndEr: T ^ M0B&H4PECrash , goto[Crash], AT[H4Disp ,3] ; ''■H4PE & MOD 

MC2ErAQ: T <- MC22Crash, goto[Crash], AT[MC2ErDi sp , 0] ; '*Have both MC2 A & B error - cra.sh 

MC2ErA: T ♦- 1 hfflask[MefflSyndrome]", goto[MC2Er], AT[MC2ErDisp, 1] ; *MC2A error 

MC2ErB: ReadP ipe[P ipeReg] , ResetHemErrs , AT[MC2ErDisp, 2] ; *MC2B error - read pipe entry 

T <- lsh[MomSyndrome,10], goto[MC2Er]; 
NoMC2Er: Goto[MClEr,ALU-=0] , ResetMeinErrs , AT[MC2ErDisp,3] ; *Branch if MClErA' = 

ReadPipe[PipeReg], ResetMemErrs ; *MC1B error - read pipe entry 
MClEr: FFAULT, dblgoto[MClNotifyEmulator, Crash, RODD], T <- MClCrash; *caii emulator take fault? 
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* rts an Interim approximation to error logging, MCZ errors occiiring 

* on a pago with LogSE set will store the pipe data »■ syiiHlromu at 

* VM 710 and resume. 

HC2Er: PipoRog *- ( rhfflask[P1pcnog]) or (T); 

* ResotMeinErrs , T *■ PipefiegQ; *single orror probloiii 
RosetMemErrs, FFauit, gotoiMCZErRet , r<01; 

I.U «- L0F[PipeReg5, 10,1]; * getting the flag bit 

* RIMP <■ 377c, goto[MC2l.og, NoMZBitS]; * tost (inverted) LogSE 
RTMP <- 377c, goto[MC2Log, alu=0]; * test (inverted) LogSE 

T «- MC2Crash, goto[CrashJ ; 
t.1C2ErRet: 

return; 

* RTMP <- 377c will bo used as odd base register. Since there is 

* no overflow and RTMP[0: 7"|-0 all will work correctly. 
MC2Log: T ♦• 311c; ' ■" 311+377 = 710 

PStore4[RTMP, PipeRegJ; 

T *- 315c; * 315+377 = 714 

PStore2[RTMP, PipeReg4J, goto[T17Restore'J ; 

'•Notify emulator at EmNotif.yA if emulator was the interrupted task, else at EmNotifyB 
MClNotifyEmulator; 

lu <- ldr[RXCTask,0,4"l; 

RTMP <- ZOZc, goto[MClNEx,ALU//01; 

RFHP «- 200c; 'emulator task interrupted - notify EiiiNotifyA 

MNBR *- RXCTask; *save the emulator's PC for further considei'at ion 
MClNEx: APC&APCTask <- RTMP; 

SALUF <- T, return; *save the crash code in saluf, so that the onuilator can use it 

T17Restoro: RXCTask <- (RXCTask) xnor (170000c), AT[204'|; "complement CIA 
T <- ldf[RXCTask,4,4]; *page bits 

lu <- (Idf [RXPPB,0,4] ) xor (T); *compare with saved page register 
goto[LoadPagoError,ALU//01, T <- 1 shfRXALU , 4) ; *rosult register 
APC&APCTask' ♦- RXCTask; 
RETURN, RESTORE, A <- RXAPC , lu *- T; *hack to faulted task 

LoadPageError: T «- LPCrash, goto[Crash]; 

SetTaskfOJ; 
NotifyBack: RTEMP *■ (RTEMP) or (170000C); 

APC&APCTask <- RTEMP, goto[PFExi t j ; 
PFExit: return; 

EmNotifyA: usectask, xliuf <- T, AT[200]; *savo the emulator's T in xBuf 

T «- APC&APCTask, can[PFExit]; 'save emulator's TPC in T, and task switch 

* PF handling starts hoi'e if the emulator was interrupted. 

* Note that if tite emulator was NOT interrupted, then the 

* fault cannot have come from buffer refill. Since control 

* entered hero, the onuilator' s PC (complomen tod) is in MNBR. 
PFEntryA: 

xBufl <- T, loadpage[FaultPagol]; 
gotop[PFEntryAx]; 

EmNotifyB: 

usectask, xBuf *• T, AT[202]; 

T <■ APC&APCTask; 

RTEMP *- 204c, call [Not i fyBack] ; 'Prepare to notify back to task 17, location T17Rostor( 

* PF handling starts hero if non-emulator was interrupted. 
PFEntryB: xBufl <- T, loadpage[FauTtPagel] ; 

gotop[PFEntryBx]; 

OnPage[FauUPagell; 

PFEntryAx: 

T <- NStkCrash, Can[CheckStackTrap] ; 

lu <- ldr[xBuf2,4,4], goto[CheckBuf ferRef ill]; 

PFEntryBx: 

T ^ NStkCrash, Cal 1 [ChockStackTrap] ; 

goto[CMStl], Dispatcli[MemStat, 15,3] ; *cannot be buffer refill trap 

CheckStackTrap: lu ♦- (SALUF) xor (T); 

T <- MNBR, goto[StackErrorz, ALU=0]; *set up to test page bits of emulator's PC 

xBuf2 *- (ZERO) xnor (T) ; '"complement value 

xBuf2 <- (xBuf2) and not (170000c), return; 
*We have a stack error. Cause the trap immediately. Set Stkp back to beginning of last 
"instruction. Let the PC fall where it may. 

StackErrorz: 

1u <- (GetRSpec[103])-(1shift[ll,10]c); "test SStkp for 9 or more 
T <- SStkp, skip[nocarry]; 
RTEMP <- 10c, goto[.+23; 
RTEMP <- T; 
Stkp «- RTEMP; 
loadpage[7]; 
T <■ sStackError, gotop[kfcr]; 

*At this point, xBuf contains the emulator's T at the time of the fault, 
•"xBufl contains the emulator's TPC, and xBuf2 contains the PC of the 
■"aborted instruction. The major problem with faults is to determine the 
*PC to store in the frame, and whether to continue the instruction, or 
•cause the trap immediately. The cases are: 



•1) The fault was caused by a Nextlnst (PC is on page 0, TPC points to 
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♦a Ne;<tlnst). Wn sot IDUF to -1, PCF to 0, ar.'J send control bac'c to 
*tho Nextlnst. Ihis will cause the faulted instruction to liu completed, 
*aiid control will go to opcode 377, which will cause the trap with 
*PC =^ 2*PCB + PCX -1. 

*2) The fault was duo to a NextData in the first microinstruction of 
"a bytecode (TPC ^ OlxxxxxxxxOl) . The trap is started iiniiiod into'ly , with 
*PC = 2'»PCB - 1 (The NextData was trying to get an operand from location 
*0 of the buffer, so the opcode Is at location 7 of tiiu previous buffer, 
*but PCB was incremented by 8 bytes before tho fault was discovered). 

*3) The fault was detected on page 6 and was duo to a Pfelchl. This Is 
•a jump instruction buffer refill. Wo proceed as In case 1 without 
•setting PCF. 

*4) The fault was duo to an Xfer buffer refill (MomStat[13: 10] ^■ 
*Xfei'Fixup) . This is handled just like a jump. 

*5) Tho fault occured during the early phases of Xfer. We want to back 
*out and redo the instruction, but CODE may have changed and we need it 
*to compute the PC to save. Call Loadgc to reload from the current LOCAL. 

'If none of these situations hold, the PC is (PCD*2) ^ q, whoi'e q = If 
*(PCF>=PCX) then PCX-1 else PCX-9 (if PCF<PCX, then tho buffer was 
•refilled botwcien the Moxtlnst and the fault, and PCB has boon advanced 
*by 8 bytes). In the normal case, tho trap is started using this PC, and 
"it is not necessary to unwind the instruction. If any special unwinding 
*1s necessary, it is indicated by a value in MemStal[13: 15 1 , 

CheckBufferRef ill : 

T <- 6c, (jQto[CaineFromPageO, ALU = Oj; '"test for emulator page fault 

lu < (ld'r[xBuf2,4,4j) xor (T); 

T «- (GETRSPtCI 103]) xor (377c), notofCheckMom;; tat , ALU//0] ; 'got ready to save stackpointer 
*Wo came from page 6. If tho operation was PFetch4, this is a jump buffer refill 

Il!uf3 ♦- pPipeRog2; *IBuf3 is a guaranteed free temporary 

Stkp <- IBuf3, IBuf3 *- T, task; *iiow pointing at the operation 

T <- lie; *not G (PFetch4) 

lu <- (1df[.Stack, 14,4]) xor (T); 

Stkp < IBufS, dblgoto[CMSt2 ,Cont inueInterruptodBytecode,ALU//0]; 
"We have a PFetch4 from Pago 6, i.e. JumpCity. We continue the jump after filling IBuf witli -I's, 
*and eventually get to opcode 377. 

CamoFromPageO: 

xBufl < lcy[xBufl,6]; *sot up to test for TPC - OlxxxxxxxxOl. 

lu <- xBur2; • test for aborted pc - 

T <- 101c, goto(;FPCOy, alu = 0]; * high 2 and low 2 bits or addr, task in middle 

lu <• (rhmask[xBuf IJ) xor (T);' 

9oto[CfiR1, ALU//0], T <- rcy[xBuf 1 , 6] ; * put TPC back 

PCB < (PCU) -(4c); * IPC = OlxxxxxxxxOl, fault was from first instruction of bytocodo 

PCF <- AllOnes; * PCF ^ 7 

r «- (GotPSpoc[103]) xor (377c), goto[SMT rpx] ; * use current Stkp 

CBRl: xBuf2 <- T; * xBuf2 now contains TPC instead of aborted PC 

T «- Oc; *Does TPC point to a Nextlnst? 

APC&APCTask <- xBuf2; 

ReadCS; 

CSDATA, goto[CMStO,Rodd]; 

PCF <- RZERO; *PCF »- 
ContinuelnterruptedBytecode: T <• xBuf; *xBuf2 points to place to resume the bytocorie 
CIBl: IBuf <- (7ero)l, task; *force bytocode 377 

IBufl *- (7ero)-l; 

IBuf2 ^ (Zero)-l; 

IBuf 3 <- (Zero)-l; 

APC&APCTask <- xBuf2, goto[PFEx1tl]; *Roturn to the Nextlnst 

SET[FixDisp,ADD[LSIIIFT[FaultPagel, 10], 100]]; 

CMStZ: Dispatch[MofflStat, 15,3], goto[CMStl]; 
CMStO: Dispatch[MGmStat,10,3], goto[CMStl]; 
ChockMemStat : Di spatch[HomStat , 15,3]; 
CHStl: Disp[F1xPC0n1y]; 

FixXfor: T <- xBuf, goto[CIBl] ,AT[FixDisp, 1]; 

FixEarlyXfer: LoadPage[xfPagel] , AT[FixDisp,4] ; 

PFetchl[ LOCAL, xf Temp, 0], cal lp[ Loadgc] ; 
FPCOy: T «- (PCXReg) - 1. goto[FPCOx]; 

FixBLTL: T <- SStkp, AT[FixOisp ,2] ; * prepare for fixup relative to saved stkp 
RTEMP <- (T), task; 
RTEMP <r (RTEMP) - (4c); 
Stkp *- RTEMP; 

T <- xBuf ,Call[BumpGlorp]; * source + T 
Stack&+1; 

Stack «- (Stack) + 1; * count + X 

Stack&+1, Call[BumpGlorp]; * dest i- T 
T «- (PCXReg) - X, goto[FPCOx]; * one byte inst cannot have refilled buffer 

BumpGlorp: Stack «■ (Stack) + (T); 

Stack&+1, sk1p[HoCarry]; 

Stack *- (Stack) + 1, return; 
PFExitl: 

return; 
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F1xl31t; r «- (SSt.kp) - 1, AI'[['-|xDi3p,0]; * prepare for fixup relative to saved stkp 
1UF.MP <- pPipeRegi!, task; 
Stkp <- RTEMP, RTF.MP <• T; 'Stack points at operation, riTCMP points to count word 

* Operation (complomentod) is low order foui" bits of Stack 

* We knov7 the op was either Pfotclil (typo = 4) or Pstorul (typo = 1,0b) 
I <- 1df'[Stack,l5, rj; * we test Stack[13;|: 0^> fetch, 1==> storo 
Stkp <- RTEMP, 1u <■ T; * point to count, test result to aiu 

Stack <- (Stack) 1- 1, skipfaiu // 0]; * count >■ 1; now test fetch/store 

T <- (PCXReg) - 1, (juto[FPCOx] ; * fetch; done with fixup 

Stack&-1, cal 1 [DocGlorp]; * source - I 

Stack&+2. can[DocGlorp'j; * dest - 1 

T <- (PCXReg) - 1, goto[FPCOx]; 

DecGiorp: Stack <- (Stack) - 1, return; 

FixPCOniy: T *- (PCXReg) - 1 , AT[FixDisp , 0] ; *noniiai PC fixup 

FPCOx: RTEMP *- T, skip[a1 u> = 0] ; 

PCU <• (PCB) - (^c); * PCX was 0, inst started in previous quadword 
iu <- (PCFReg) - (T); *test for PCX large, PCF small 

PCF *- RTEMP, skip[alu> = 0]; *PCF is always PCXl, only PCB is in doubt 
PCB <- (PCB) - (4c); 

*llere PCB, PCF is correct pc to save for trap. It will bo done through KFCB. 

StartMeniTrap; T <■ SSlkp, a trStartMemTrapLoc] ; 

SMTrpx: RTEMP <- pPipeRog, task; *Point stkp to pipe registers 

Stkp «- RTEMP, RTEMP *- T; 

MoinStat «- Normal ; 

T <- (Stack&H) and (177c); *low 7 bits of VPage 

T <- (lsh[Stack&H,7]) or (T) ; "high 7 bits of VPage 

xfOTPReq <- (zero) or not (T); 

xfOTPRcg <- (xfOTPRog) and not (140000c); 

stack&i-3, task; *point to flags 

T <- ldf[Stack, 12, 1]; *Tost Dirty': = > page fault. 

Stkp ^ RTEMP, lu <- T; "Restore stkp 

skip[ALU=0], LoadPage[7]; 

T <- sWri toProtect , gotop[kfcr]; 

T <- sPageFault, gotop[krcr]; 

END; 
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ang on May 27, 1979 4:41 PM, for Overlay booting (midas) 
hnsson on May 14, 1979 8:53 AM 
ang on May 10, 1979 8:27 AM 
ndinan on May 8, 19 79 11:58 AM 
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das) 



lDr0[Midasl3oot, , So t[MidasDoot , 0]] ; 
IDFOiXV/ire, , Set[XWi re , 0;|;i ; 



ask Numbers 

t[L0task,12]; 

t[EItask,13]; 

t[E0task2,6 I; 

t[EItask2,7]; 

trDtask,101 



•Etliernet Output -- DO mode 

•Etheiiiet Input ■- DO mode 

'"Ethernet Output -- DO mode (second board only) 

'*Etliernet Input -— DO mode (second board only) 

I RDC 



MC[RdcTask, 11]; '"SA4000, implies a set[RdcTask! , 111; 
Set[RdcTask, 11]; 
Sot[uiUTFPTASK,14J; '"lUTFP 
SoL|;TTask,10J; 

S(;t[riFTask,4]; *RS232 frame task 
SutLRRrask,5]; '*RS232 bit task 



Set[XOStartCSn, 177640]; 
SetfXIStartCSn, 177660]; 
Set[X0StartCSB2, 177540]; 
SoirXlStartCSn2, 177560]; 
SETf nS232CSBLoc , 177500] ; 
Sot[RDCCSrJValue, 177620]; 



CSB Ass ignments 



Output CSB (board 1) 
Input CSB (board 1) 
Output CSB (board 2) 
Input CSB (board 2) 
CSB location 
RDC CSB 



*Disk initialization 



*Page Assignments 
Sot[InitPage, 16]; 
Sot[InitPagel,2]; 
Set[ InitPago2,l]; 
Sot[l.oadCSPago,l]; 
StilfTimorPage, 0]; 
SeL[TimurinitPagel , 2] ; 
Set[TimerinitPage2 , 2] ; 

'■'NOTE - all initialization is crammed onto the same page. 
Sot[DiskIn itPage, 2] ; *Throwaway init code for disk 

SetLDiskliiiLLoi,,Add[Lsh)f t("DiskIn i tPage , 10] , 203]] ; 
Sc!t[UisplayInitPage, 2 I ; '^Thi-owaway init code for lijTFP 

Sot[DisplayInitLoc ,Add[Lshif t,[DisplayTnitPage, 10] ,207]]; *Di splay initialization 
Se tf Rdcini tPage , 2] ; '"TlirovMway init code for SA4000 

Set[RdcInUBaso,Add|"l.shift[Rd€lni tPago,10],3 40]]; *SA4000 

SetfRdcInitLoc,Add[Lshift[RdcInitPage,10],340]]; '•SA4 000 Initialization 
Sot[LtlierIni'tPage,2]; 

S(!t[EthorInlnitLoc,Add[Lshift| EthorlnitPage, 10], 2 10]]; "Ethernet ini t ial ization 

Sot[EthGrOutIni ILoc, Add[Lshi f t[ElhorInitPago , 10] , 212]] ; '"Ethernet initial ization 
'" --> (2nd board only) 
Set[EtherInitPago2,2]; 

Sot[EtherInInitLoc2,Add[Lshift[EtherIn itPage,10],214]]; '"2nd Ethernet in It ial ization 

Set[EtherOutInitLoc2,Add[Lshift[EtherInitPago, 10], 2 16]]; '"2nd Ethernet initialization 
Set[EEPage,3]; "Ethernet microcode 
Scl[E0Page,3i; 
Set[EIPage,3]; 
Set[KeyPage, 1/] ; '"Keyboard translation table 

Set[KoyTable,add[lshif t[keypago,10],140]3; 

HC[KQyTablell, and@[ key t abl e , 7400]]; 

MC[KeyTableL, andBCkey table ,377]]; 

Sot[opPago0,4] ; '"These cannot move easily, since the hardware forces the first instruction 

Set[opPagel,5]; '"of each bytocode to start at 2001 + (4 '" opcode) 

SetiopPage2,6]; 

SetfopPageS,?]; 

SGt[MulDivPage,4]; 

Snt[LRJPaye,0]; 

Set[ClrDvPage,4]; 

Set[FaultPagel,14]; 



Set[ 
Set[ 

SGtf 

Set[ 
Set[ 
Set[ 

% 

Set[ 
Sot[ 
Set[ 
Set[ 
Set[ 

X 

set[ 
Set[ 
SEli 



DRPAGE,10]; "Disk microcdo 
DRPAGE2,11]; "More disk microcode 
hbpl, 11]; '"bitblt page 1 

uiUTFPPage, 12]; "Display microcode 
nePage , 1]; 
RdcPage, 13]; ■" SA4000 main task 

*«4t4*.t*«« pago-assignment for RDC 
RdcPagel, 13]; '•SA40bo, main task 
RdcPage2, 13]; '"SA4000, used to bo page 
RdcPageS, 17]; '"SA4000, used to be page 
RdcPage4, 17]; '"SA4000, used to be page 
RdcPageS, 17]; *SA4000, used to be page 



'RdcOverf low" 
'RdcOverflow" 
'RdcOverf low" 
'RdcOverflow" 



bbp2, 14]; 

xfPagel,15]; 
prPage, 16]; 



"bitblt page 2 



Set[DBootDoneLoc,Add[lshift[InitPagel,10],375]]; 
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Sot[KrCRLoc,Add[1sh1ft[oppago3,lO],76]]; 
Set[P7Tainoc,A(lci[lshirt[oppage3,10],2 7J]; 
Sct[L()udGCLoc,A(Jcl[lslrif t[xfPa(j<!l,10|,300ii; 
Sot[neMo!;kipLoc,Ad(i[1sh ift[iioPacie,10i,273li; 
SGtriiiiti:iidLoc,Add[1shift[T imGrPngG,10"],20]"|; 
SetrEEStartl.oc,Add[lsl)ift[Er.PanQ, 10], 105'|1; 
Sot[StartMonTrapLoc,Add[lsh if t'fFaiiUPagcl , 10], 16 ]]; 
Sot|;PNIPGase,Arld[;i;ihirt[TimerPage,10J,160i];' 

* Pilot high resolution clock 
SetTaskfTTask]; 
RV[ClockLo, 50]; 
RV[Clocklli, 51]; 

• The following G definitions MUST HATCH THOSE IN f!S232C MICROCODE!!! 
Also, code dcponds on RIMotify value boing zero! 



MC[RINotify,0] 
MC[RONotif,y, 1] 
MC[RPMotiFy,2] 



Input bit notify least sig. Ijyte address 

* Output bit notify least sig. byto addross 

* Poller notify least sig. byte addi-ess 



RV[EONotify, 40]; * Register containing notify value for Ethernet 

RV[EONoti fy2 , 44];* Register' conLaining notify value for 2nd Ethernet 
RViRENoti fy , 46] ; * Register containing frame notify values 

nvj KXNot ify , 47] ; * Register containing bit notify values 

« End of RS232 definitions 



RV[RSIniage,42]; 

* Kernel registers 

SetTaskl"!?]; 

RV[R,XAEU,76]; 

RV[RXAPC,75]; 

RV[RXCTASK,74]; 

RVrRXPPB,73]; 

RV[RXSTK,72]; 

RV[RTMP, ;i]; 

RV[F Fault, 66]; 

MCfFFaultAdd, 366] 

SetTask[0]; 



*Ifflago of RS232 hardware register 



*AI.U result and SALUF 
*APCTask&APC 
*CtASK.NCIA 

"Page .Parity , Boot Reason 
•Stackpoin ter 
'temporary 
Flags tell what to do with fault 
Address of FFault 



♦Register definitions for Nova and Mesa emulator 

"The Mesa Stack. These locations cannot move, since the hardware does overflow checking on 

•those registers. 

RV[StackO, 1]; 

RV[StackX. 2] 

RV[Stack2, 3] 

RV[Stack3, 4] 

RVfStack4, 5] 

RV[Stack5, 6] 

RV[Stack6, 7] 

RV[Stack7, 10 _ 

* Registers used to hold constants 
nv[(MO0,15]; *constant 400 
RV[A110nos,16]; • 1 
RV[RZero,17]; *0 



•Nova central registers 

RV[AC0,20]; *Quadword block for ACO-3 

MC[pAC0,20]; *R address of ACO 

RV[AC1,21]; 

RV[:AC2,22]; 

RV[AC3,23]; 

RV[CARRY,24]; *Nova carry bit in bit 15d 

RV( MWW,26]; 

MC[pNWW,25i; •pointer to NWW 



*Base registers 

R\/[Nova,26]; *Baso of Nova addross space 

RV[Novah,27]; 

RV[PCB,30]; *PC base register pair 
RV[PCBh,31]; 

RV[PC, 30]; 
RV[PChi, 31]; 

R\/[0MA,32]; *teiiiporary base register used by CONVERT 
RV[DMAh,33i; 

RV[SMA,34]; 'temporary base register used by CONVERT 
RV[SMAh,35]; 

RV[MDS, 36]; 
RV[MDShi, 37]; 



RV[GLOBAL, 54]; 
RV[GLOBALhi, 56]; 
RV[xfMY, 56]; 
RV[xfMX, 57]; 

RV[I.Pdest, 66]; 
RV[LPdesthi, 57]; 

RV[CODE, 60]; 
RV[CODEhi, 61]; 

RV[LOCAL. 64]; 
RV[LOCALhi, 65]; 



* must be quad aligned 

* must be GLOBAL + 2 

* Long BLT 
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RV[LP,t)6]; *1ong pointor base pair 
nV[LPhi,67]; 

l!V[PBase, 26]; ' PSB base register 
iW[PBasehi, 27]; 

RV[Quoiiel ,44]; * Quone base register for process maohinory 
RV[Queiiel!n, 45]; 

RV[Quoue2, 46]; * Queue base register for process iiiach iiiory ; 
RV[QuGU02hi, 47]; 

"Buf fers 

RV[IBUF,40]; •4 word instruction buffer (flM 40-43) 

RVflBufl, 41]; 

RVfIBuf2, 42'|; 

RVCTBufS, 43]; 

RV[xBuf,44l; *Oundwortl temporary buffer (RM 44 - 47) 

MC[pxBuf ,44]; *pointer to xBuf 
RV|xBufl, 45]: 
l!VixBur2, 40] 
RV|;xBuf3, 47] 

Time registers for process timeout; 
RVl'CurrentTinie, 62]; 
RV[ricl<Count, 63]; 

♦Other 

RVfxfFsi, 32]; 

R\/[xrR11nk, 33]; 

RVJRLInk, 33]; 

fiV[xfGf iWord, 34]; *ho1ds word of global frame 

RVfxfRsav, 35]; 

lwfLrAd,50]; "Nova Effective address 

RV[MoniStat, 50]; 

RV|RCNT,51]; *usod by MUL and DIV 

RV[xf(rame, 51]; 

RV[RrF:MP,52]; 

RVrRTEMPl,53]; *used by Interrupt Test 

RV[Resu1 t ,53]; *tomporary 

RV[intRTN, 54]; "used by Interrupt test 

RV[INTX,55]; *used by Interrupt test 

RV|;xnXII,56]; *tenipornry used by COMVERT 

RV|;WW,56]; 

RV(ACriVE,57]; *iiuist bo WWi 1 

RV[xnDost ,57]; *temporary used by CONVERT 

R\/[XDI,57]; *reg1stor used as temporary when initializing l)B as an index into xBuf 

RV[xfBrl^Byte, 74]; 

'Process registers 
MV[Process, 73]; 
RV[MO, 66]; 
RV[PRnags, 71]; 
RV[Prev, 70]; 
RVIQTemp, 12]; 
RvfoTemphi, 13]; 
RV|PRT1me, 72]; 
RV[RTemp2, 67]; 
RV[ITcmp, 12]; 
RV[ITcmpl, 1,3]; 
RVilntlypo, 14]; 
RV[IntLovoi, 57]; 
RV[EMLink, 10]; 

RVIxfTemp, 72]; 

RV[xf Tempi, 73]; 

RV[xfTomp2, 66]; 

RV[xfCount, 67]; 

RV[xfATPrcg, 71]; 

RV[xrXTPreg, 70]; 

RV[xfOTPreg, 11]; 

RV[EllostReg , 75]; "Ethernet host register (accessed by Etiiernot code during SID) 

MC[pEHostRegx, 74]; *pointer used during Ethernet Initialization (points to 74 because 
*INPUT to tlie stack does a push 
RV[xfWDC, 76]; 
RV[xfXTSreg, 77]; 



•bitblt registers 

rv[bbDEST, 

rv[bbRTEMs1x, 

rvfbbRTEMsty, 

rv[bbRTEMdlx, 

rv[bbRTEMdty, 


44] 
44] 
45] 
46] 
47] 


rv[bbSOURCE, 


70] 


rv[bbSrcOAddrLo, 
rv[bbSrcQAddrH1, 


32] 
33] 


rv[bbDestQAddrLo, 
rv[bbDestQAddrHi, 


56] 
57] 


rv[bbSBCA, 

rv[bbGRY, 

rv[bbSBMR, 


4]: 

4]; 
6]; 


rvrbbOBCA. 

rvibbGrayCnt, 

rv[bbDBMR, 


6]; 
6]; 
7]; 



*Quad-word buffer coincident with xBuf 

*pa1red with bbRTEMsIx 

»paired with bbRTEMdix 

*Quad-word buffer 

*map base reg 

•paired with bbSrcQAddrLo 

'"map base reg 

*paired with bbDestQAddrLo 

'paired with bbSBCA 

*pai red with bbDHCA 
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rv[bbMiniisItemWidth, 66] 

rv[l)bItemUidth, 06] 

rv[bb Items Remain ingMiiius? , 6 /] 
I- V [ b b 1 1 cm s Rom /I i II i 11 g M i ti u s 1 , 6 y i 
rv [ b b 1 1 em s Rema i 11 i 11 g , 67] 



'paired with bbltuiiiVJ idth 



*rcgisters which need not be paired 
rv[bbSrcSto,rtOi tLo, 12] 

rv[bbSrcStartOitlti , 13] 

rvibbDestStartBitLo, 14] 

rv[bbDestStartBitlli, ZO] 



rv[bbMiiuisSONonOvorlap, 24] 

rv[bbSDHoiiOver1ap, 24] 

rv[bbMinusDi tsRomaining , 51] 

rv[bbMiiiusNumUi tsTraii , 53] 

rv[bbp'tiiic tioii , 11] 

RV[xCNT,52]; 
nviDevIiidex,62]; 



coincidGiit with ACO 



*coiiicident with CARRY 



♦Constants 

HC|:intPGndingBit, 10]; 

MCr.xfAV, 1000]; 
MCixfSDOrrsot, 100]; 
MCfxfGFT, 1400]; 



MC[Norma1, 0]; * 
MCfPreeFramo, 10]; 
MCf'TarlyXfer, 4]; 
MCrCltFixup, 3]; 
MC[BI tlJ-ixiip, 2]; 
HcrXforFixup, 1]; 



* Frame formats 
MC[xfPcOrfsot, I]; 
MC[xfRetLiiikOrrset, ?.]; ■ 
MCflocaUeroOffset, 4]; ' 
HC[xfGr iOf fset, 0]; 
MC[GlobaiZcroOffset, 3]; 

*StateVector format 
MCLStkPOffsot, 10]; 
HC[Destorrset. 11]; 
MC[SoiircoOf fset, 12]; 



Things in MemStat 



MCC 
MCI 
MC[ 
MC[ 
MCf 
MCi 
MC[ 
HC[ 
MC[ 
MC[ 
MC[ 
MC[ 
MC[ 
MC[ 
HC[ 
MCi 



iiidicios 
sStackError, 2]; 
sWakoupError, 3] 
sXfcrTrap, 4]; 
sUnimplnmented, 5 
sAI locListEmpty , 
sCon t rolFaul t , 7 
sCsegSwappedOiit , 
sPagoFauit, 11]; 
sWri teProtoc t , 1 
sUnbotind, 13]; 
sZeroDi vi sor, 14 
sDiv ideCbeck , 
sHardwareErro 
sProcess Trap , 17 
sBoundsFaul t , 20 
sPointcrFault , 2 



]; 
6J; 
]: 

10]; 



15 



2]; 

]: 
]; 

16]; 

3: 
]; 
1]; 



•Nova entry point constants 



MC[FirstProcess, 75]; 
MC[LastProcess, 76]; 
McfFirstStateVoctor, 77]; 

MCfCiirrentPSB, 21]; 
MC[ReadyO, 22]; 
MCfCurrentStato, 23]; 
HCiReadyQhi, 1]; 

MC[IntStopPC,25]; 

MC[StopStopPC,26]; 

MCrMEStopPC,27]; 

MC[MXDStopPC,30]; 

MC[MREStopPC,31]; 

MC[HXWStopPC,32]; 

MC[M0TIFYStopPC,33]; 

MC[BCASTStopPC,34]; 

MC[REQUEUEStopPC,35]; 



* RS232 SIO address constants 
Set[RS232SIOLoc, add[LShift[EEPag8, 10] , 370]]; 

% 

********** move the followings to DOLang.mc 
*If mode not defined, make it Pilot 
IDF0[AltoMode, , SET[AnoMode , 0]]; 

*This statement defines comments *// is AHo and 
IFE@[AUoMode,O,COHCHAR@[i?],COMCMAn0[ = ]]; 



is Pilot 



*Print Message telling Mode 

IFE@[ Al toMode,0,ER@[Pi lot. 3. 0.Microcode],ER@[A1to/Mi;sa. 0.0. DO. Microcode]]; 



•Macros 



GlobalDet's.mc 



3-Nov-/g 19:16:53 



Paye 



H(3[0PC0DF. , AT[2001,LSMIFT[/n,2;|]]; 
'Cyclor-masker functions 
M0[1-IXVA, ()S0[a] l'Ze[34i] /a]; 
M0| l'orinl,LI31-|//l,17,ti]; 
M0[Form2, BS@[oi l'Z@[342] //I'J; 
Me[f-orF,l3,l.Dr[//l,10,2]]; 
Mt-iflorm^, 1JS0[3] rzet343] //I]; 
M3iFormM1nus4, t5Sfi[3J FZa[35ii //I]; 
% 



End; 
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DUILTIH[1nsert,24]; 

insort[d01ang]; 

NOHXDASINIT; 

LANGVERSION; 

MULTDIB; 

ins3rt[61oba IDufs I ; *task and pagn assignments 

TITLE[Initiril1zation]; 

*last edit by Chang, October 11, 1979 10:03 AM, revised RDC & XW-codos 

* edit by Jolinyson, October 9, 1979 4:06 PM, AR 18'^9 - PNIP 

* edit by Kennedy, Octobor 3, 1979 9:?2 AM, Update MP Codes 

* edit by Chang, September 17, 1979 7:00 PM New RDC-codes 

* edit by Chang, September 12, 1979 2:13 PM RDC in ALTO-nioda 

* edit by Chang, August 22, 1979 1:29 \'M move Timor's regs 

* edit by Chang, August 17, 1979 8:42 AM RDC Integration 

* edit by Chang, August 2, 1979 3:53 PM Add 2nd EthorDoard 

* edit by Johnsson, June 13, 1979 4:63 PM now f Fault royistor 
•"edit by Chang, Juno 3, 1979 4:11 PM Overlay booting 

•edit by Johnsson, May 10, 1979 3:27 PM, PNIP fix 

♦edit by Chang, May 10, 1979 8:31 AM, add new Ethernet ID 

•edit by Sandman, April 6, 1979 3:50 PM 

'Modified March 6, 1979 by CPT, Added fault handling 

IMRESERVE[0, 0,100]; 

* IFEe[InitPage,l, IMRESERVE[0 , 100, 17] , IMRESERVF.[1 ,0 , 100]] ; 
IMRESERVE[1, 0,100]; 

IMnESERVE[2, 0,100]; 
IMRESERVE[17, 377,1]; 

•Registers for IMAP 

R\/[xinad0,22] ; *baso register 

RV[xmadl,23]; 

RV[xmbufO,24]; *(|uadword buffer for XMap and PFetcli4 

RV[rbufO,24]'; 

RV[xmbufl,25]; 

RV[rbuf 1,25]; 

rv[xmbuf2,26]; 

RVrrbuf2,26]; 

RVi;xiiibuf3,27]; 

RV|;rbuf3,27]; 

RV[wbufO,30]; 'quadword buffer for PStore4 

RV[wbufl,31]; 

RV[wbuf2,32]; 

RV[wbuf3,33]; 

RVfrl ink0,34i; *subroutine return linlc 

RV[MapEnt ry ,35] ; 'current map location 

RV| ZPage,35]; '"page being cleared 

RV[liealPago,36] ; "current real storage page 

RV(;ZWord,30J; 

RV[PageCount ,37]; "count of available real pages in system 

RV[ConipF1ag,40]; 

R\/[BootTypG, 0]; * even => hard boot, odd -> soft boot 

'Registers for other sections of initialization 
RV[xCNr,20]; *usod everywhere 
R\/[DevIndex, 21] ; "used in Dovicelnit 
MC[pDX,21]; "pointer to Dovlndox 
i!\/[contcmp ,22]; "used in Devicelnit 
RV[assigned, 23] ; "used in Devicelnit 
R\/[initpc, 24]; 'used in Devicelnit 
R\/|'initrO,40]; *used in DiskBoot 
RVf initrl,41]; *used in DiskBoot 
RViinitr2,42]; *used in DiskBoot 
RV[initr3,43]; *used in DiskBoot 
RV[ErrorCnt,44]; *uscd in DiskBoot 
R\/[ErrorCoun tx , 45]; *used in DiskBoot 

* MC[tmr38conreg,324]; 'RH 324 holds 38usec timer restart constant 
MC[tmr38conreg,354]; *RM 354 holds 38usec timer restart constant 

•Maintenance Panel Normal Operation Codes: 
MC[StartMapInit,1274]; *700d 
MC[StartDevi coin it, 1306]; *710d 
MC[StartDiskBoot,1320]; *7Z0d 
MC[SystemRunning,1476]; *830d 

•Maintenance Panel Failure Codes: 
MC[NotEnoughMemory,1275]; *701d 
MC[BadMap,1276]; *702d 
MC[NoDiskStatus,1321]; *721d 
MC[BadBoot,1322]; *722d 

SETTASK[0]; 

MC[NextDiskAddr,237]; 

RViBootDiskAddr,37]; 

SET[InitBaso,lshift[InitPage,10]]; 

SET[HardStart, ADD[InitBase , 1]] ; 

SET[SoftStart, ADD[Ini tBase, 2]] ; 
MC[InitLoc,InitBase]; 

SET[Qloc,ADD[InitBase,6]]; 

MC[OxL,AND0[Qloc,377]]; 

MC[QxH, OR0[ 150000, ANDSiOl 00, 7400]]]; 

SET[0retLoc,Add[InitBase,7]]; 
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HC[0netL,AND@[QretLoc.377 |]; 
MC[Qretll,ANDe|;QretLoc,740b;]i; 

OMPAGE[InitPafioJ; 
•Machine ini tia i i 7.ation bcqins here 
GO: 
START: xCNT*-InitLoc , at[llai'rJStart] ; 'send control to "Qtask" In task 

apc&apctask< xCtJT, goto[in itRF.Tp, 

Sof tBoot: 

BootTypo «- Ic, goto[negTn itl], at[SoftStart] ; * This is a soft boot; 

Qtask: xCNT *■ Qxl., AT[Iii i tHase'l ; 'Quiesce tasks 15b - 1 

xCNT <- (xCNT) or (QxH); 

Devlndex *- pDX; 

stkp <• Oovlndox ; 

nevlndex «- QfietL; 

Devlndex <- (DevTndex) or (QRetll); 
Qloop: APC&APCTASK <- xCNT; 
initRET: i-eturn; '"goes to Qx 

Qx: 

APC&APCTASK «■ stack, cari[initRi:T], AT[01oc]; *Motif.y comes here. Leave task's IPC pointing at Qxy. 
Qxy: goto[ ini tPET]; *intist spend two instructions in the task 

Orot: lu <- 1Uf[xCNT,0,31, AT[OrotLoG]; *xCNT points to this location 
xCNT f- (xCNT) - (iOOOOC), dblgo LofZapDevi ces , Qloop , ALU = 0;i ; 

/apOovicos : 

nootType «- Oc; * This is a hard boot 

T <- 177400C; 

xCNT «- Oc; 
ZapDioop: OUTPUT[xCNT | ; *send a to all registers of all devices, hopefully quiescing them 

T <- (zero) ^ (t) ^ I; 

dblgoto[ZapDloop,DoM;ip,ALU<Oj; 

*The following section tests the map as a memory, then dotorminos the 
"amount of real storage in the system and sets up the first 
*N map entries to point to this stoi'age (remaining map entries 
*are initialized to VACANT), then clears storage. 
DoMap: loadpago[0]; 

T (■■ StartMapInit, CanP[PNIP]; 

IMAP: CompFlag « ( zero) - 1 , goto[ imCompx] ; 
iiiiAloop : 

T < (CompFlag) xor (T); 

xmbufO <• T, cari[iriiWri teMap]; 

T «■ MapFntry; 

T <:■ (CompFlag) xor (1), cal 1 f imReadMap]; 

MapFntry < T <- (HapEntry) + 1; 

goto[ iiiiAloop ,nocar'ry'| ; 

MapFntry < 140000C; 
imRl oop : 

T *- HapEntry; 

T <- (CompFlag) xor (T), call [imReadMap] ; 

MapEnti-y <- T <- (MapFntry) t 1; 

lu <- CompFlag, goto| imRloop , nocarry] ; 

goto[ .+2,AHJ = 0], CompFlag <- (zero); 
imCompx: 

goto[imAloop], MapFntry *■ T «- 140000C; 

Real Page «- (IOOOOC); *max real page H 

MapFntry <- 140000C ; "carries beyond max VM cause ALUCY 

PageCount <- OC; 

rlinkO'*- FFaultAdd; *location in fault handler 

stkp <- rlinkO; 

*fill first quadword of each real page with its page number and some constants. 
*go through real memory backwards so that hole in 90k modules will not 
*screv/ up non-hole banks. 

wbufl ♦• 326C; 'random constant 
wbuf2 <- 134000C; 
wbuf3 *- (zero) ; 
imFloop : 

RealPage ♦■ T *• ( RealPago) -1; 

xmbufO *- T, goto[. h2,ALU> = 0]; 

T <- RealPage <- 170000C, gotoiimTlocpJ; 

wbufO *- T; 

cal 1 [ 1mWr1toMap]; 

PStoro4[xmadO,wbufO,0], goto[ imFloop]; 

"during this phase, wo sweep upward through real storage and the map, and 
*use any real pages discovered. 

imTloop: 

xmbufO ♦- T; 

xmbufO <- (xmbufO) and not (170000C), call [imWriteMap] ; "set base reg to point to MapEntry, 
"set MapEntry to point to RealPage. Set all map flags off. 

nop; 

call[.+2], stack «- (Stack) or (lOOOOOc); *turn on fault handler 
imPault : 

goto[imPageBad], stack «- (Stack) and not (lOOOOOc); *get here on a fault - turn off fault handler 

PFetch4[xmadO, rbufO,0]; "fetch. Will cause fault if page is bad 

T <- rbufO; 

lu <- (ldr[RealPage,4,143) xor (T); 

goto[.+2, ALU = 0], stack *- (Stack) and not (lOOOOOc); "turn off fault handler 

gotoiimPageBad]; "page number didn't compare 

T <- (rbufi) xor (326C); "a final check against constants 
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rbuf2 <- (rbtir?) xor (134000C); 

T <■ (rl)urz) or (T); 

T t^ (rbufrs) or (T); 

db1t|Oto[ iml^ayGGood, iiiiPageBac!, ALU=0]; 

imPageGood: 

MapF.ntry <- (MapTntry) + 1; 

PageCount «- (PagoCount) i- 1; 
ImPugeBaU; T <- Real Page <- (RoalPage) + 1; 

goto[ iniTloop , iiocarry]; *done with all of real memory? 

wbufX ♦- OC; *c1ear wbufl in proparation for cotg zap. 
iriiMarkVacaiit : 

xmbufO <- 60000C; *pagG vacairt 

Can[ iiiiWriteMap]; 

MapEntry <• (MapF.ntry) + 1; 

T «- PagoCount, go to[ imMarkVacan t , nocarry]; •dono with all map entries? 

imCoreZap; 

wbuf3 *- OC; 

wbiif2 <- Oc; ■ 

/.page <- T; 

imZapl-Oop : 

ZPago <- (ZPage) -1; 

T <- 1 hm<isk[ZPage] , goto[imOono, ALU<0]; 

xiiiadl <- T; *set up a base register for the page 

T <• "lsh[Zpago,10]; 

xmadO <- T; 

ZWord <- 400C, can[imZP1oop;]; 

im/Ploop: 

Zv;ond <- T <- (Zword) - (40); 
goto[imZapLoop, AI.U<0]; 
PStore'l[xiiiadO, wbufO], return; 

imDone: 

1u <- (PagcCotint) -(400c); "don't try to run with less than 64K 
T <- Hotr.iioughMemory, goto[ In itFai 1 , ALLKO]; 
golo[negtn i tl]; 

I n i t F a i 1 : 

loadpage[0]; 
callptPNIPl; 
goto[START]; 

♦SUBROUTINE iniWritoMap writes the data in xmbufO 
"into map location MapEntry 
imWri tcMap : 

T ^- (MapEntry) and not (140000C); 

xmadi >- T; 

xmadl <■ (xinadl) and not (377C); 

T ^- l.sli[MdpEnlry,10;j; 

xmadO *- T; 

Xiiiap[xmadO , xmbufO , 0]; 

xmbufO <- xmbufO, return; 'interlock 

"SUDROUTINE imReadMap reads one entry from MapEntry 

*iirto rbufO, then compares it with (MapEntry xor CompFlag) 

imReadMap : 

xmbufO < T, usectask; 

T <- apc&apctask; 

rlinkO < T, cai i[ imWriteMap ] ; 

T <- 1sh[xmbuf3, 10]; *f1ags, card, bIk.O bits 

rbufO <- T; 

r <- (xmbuf 1) and (377C) ; 

rbufO <- (rbufO) xor (T); 

T f- MapEntry; 

T <- (CompFlag) xor (T); 

iu «- (rbufO) xnor (T); *note. Map data is complemented, so we xnor 

goto[imGoodEntry, AEU=0]; 
imBadMap: 

T «- DadMap, goto[InitFail ] ; *Some map entry was bad 

imGoodEntry : 

apc&apctask <■ rlinkO, goto[ initRET]; 
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*Wf3 have initialized the map and memory. Before initializing and 
'starting devices, set up the R memory locations that 
*must be vai id. 



Reg In 


iti: 






Nova <- 


zero; 




Novah *- 


zero; 




DMAh <- 


zero; 




R400 <- 


(400c); 




Al lOnos 


*■ (zei-o)-l; 




RZero •- 


zero; 




xCNT <- 


NextDiskAddr; 




stkp'-xCNT; 




t'stack 


; 




nootDis 


kAddr <- t ; * 



*get next disk address from reg 237 
save next disk address in reg 37 

' HS23Z initialization. . fake RS232 stop (task 16, location RS232SI0H) 
xCNT <• OR@[LSIIirT[TTask, 14] , AND0[OO74OO , ADD['RS232SI0Loc , 1,H |C; 
xCHT <- (xCNT) OR ( AMD15[377 , Ai:)D[ nSZ32SIOl.oc , i]]C) ; 
APC&APCTask ♦- xCNT, TASK; 
Return; 

"Initialize the 38usoc timer 
xCHT <- ( tmr38conreg) ; 
stkp <- xCNT, task ; 
stack <- (50000c) ; 
stack <- (stack) or (156c) ; "simple timer, value 6, slot 16 

* with lOOiis clock, period is 

* 4*16*100*6ns = 38,4 us 

* Alto is nominally 38.08 us 
LoadPage[InitPa(je2]; 

loadtimer[stack ], ()oto[DeviceInit'J ; 
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♦rind and initialize all I/O dovices: 

*The idea is to uso IIM 40-57 as a "slot tabio" with one onti-.y 

*per potiMitial I/O coiitroner. First the table is fiTled 

*with dummy controller addresses, and tlieso arc clocked otit 

*to ttiG controllers. Then, each controller is interrogated 

*for it's Device TD, and those names are put in the table. 

*Then, for each slot, the device ID is looked up in a table 

*(in the control store) of potential devices, and if a match 

*is found, the entry from the device table is put into the 

*slot table. A device table entry consists of the uPC value 

*of the device's initialization routine (12 bits), and the 

•task number for the controller. 

*Whon all slots have boon looked up, the task numbers are 

"clocked out to the controllers, and the associated Initial iifatlon 

'•routines are called in turn. 

*ro add a new controller to the system, it is only necessary 
*to add an entry to the device table (and add the controller's 
*m icrocode) . 

"first, a macro to allow nice formattinc| of the devico table entries.., 
mf<)[dtab,DArA[(LH[//i;|,nil[LSilIhT[//Z,4;],//3J,RSEL2(3[dp[//l,//Z,//3j],at[dtabloc;i);|SF.T[dtabloc,ADn[dtabloc,l]]]; 

•also, wo must make the parity of an entry correct, or Midas will correct it for us... 
mi!>[dp,set[dpx,xor0[l,//l,//2,//3;i]set[dpx,xor0[dpx, rshift[dpx, 10J'|]se t[dpx , xoriJ[dpx , rshi ft[dpx, 4111 
sot[dpx,'xor0[dpx, ishi f t[dpx , 2J]]set[dpx , xorS[dpx , rshi f t[dpx, 1]JJ 
set[dpx,and0[ I , dpx jjdpx]; 

SET[DtabBase,add[Ini tUase,1001]; 
S(;T[dtabloc,Dtabnase;j; 

"Here is the device table 

dtabr?003,0iskInitloc,DTask]; *IRDC ID -■ 2003b, 

dtab[?'l02 , Etherlnini tLoc,EtTask]; *Ethornot input = 2402b 

dlab[240i, EtherOutXnitLocEOTask]; '"Old Ethernet output '- 240.1b 

dtab|'3400, Etherlnini tlocEITask]; *EtherneL input = 3400b 

dtal)[3000,Ether0utInitLoc,EOTaski; *Etlioriiet out put -3 000b 

dtab[6400, Etherlnini tlocEITask]; * XWire input 

dtab[6000, EthorOutIn ilLocEOTaskj; * XWire output 

*=*****•* Start of Pilot Code «»i **»**•♦***********«******»****««** ****** 

dtab[2402,EtherInInitLoc2,EITask21; *2nd Old Ethernet input * 

dtab[2401, EtherOiitln itLoc2, E0Task2']; "Zad Old Ethernet Output * 

dtab[3400, Etherlnini tLoc2,EITask2]; *2nd Ethernet input * 

dtab[;3000,EthorOutInitLoc2,EOTaskzi; 'Znd Etiiernet Output * 

dtab[6400,EthorInIiritEoc2,EITask2'l; *2iid XWire input ' 

dtab[6000,EtherOutInitLoc2,EOTask2"j; *Znd XWire Output * 

*=******* End of Pilot Code *»*******«*»****«*«******»*«-»*******»***** 

dtab[1417, RdcInitEoc, fidcTask]; *SA4000 

dtabfl407, PdcInitLoc, fidcTask]; *,SA4000 

dtal)[24i7, ndclnitl.oc, lldcTask]; *SA4000 

dtab[2407, lidclnitloc, fidcTask]; "SAnOOO 

dtab[411,DisplayInitLoc,uiUTFPTASKJ; *IUTFP ID = 411b 

dLabio,0,0]; "final entry in the tablo must be zero 



0NPAGE[InitPage2]; 
Devi colnit : loadpage|"0] ; 

T<- StartDeviceInit,callp[PNIP]; 

xCNf <- 57c; 

stkp ^ xCNT, xCNT *- T <- (xCNT)H, ca1l[DIl]; 

*stkp = 57b, xCNT = T = 60b here. 

*Write 60-77 into RM 40-57 
DIl: stack&+l <- T; 

lu *- (xCNT) xor (77C); 

xCNT «- T <- (xCNT) + 1, goto[DI2, alu = 0]; 

return; *return to DIl 

*Send dummy controller addresses to devices 
012: xCNT «- 57c; 

stkp <r xCNT, call[ClockOutPattern]; 

*stkp = 57b here 

xCNT <- T *-■ 177400c, call[DI3]; *Read controller ID's from register of all devices 
DI3: INPUT[stack]; 

nop; *allow xCNT & T to be written 

xCNT <- T <- (xCNT) + (20C), goto[DI4, R>-0] ; "advance to next device 
devRET: return; * return to DI3 

*l.ook up each slot table entry in the device table 
DI4: xCNT «- 40c; 

stkp <- xCNT; 

xCNT <- 17c; 

assigned «- Oc; * Bit mask of asignod tasks 
DI4x: Devlndex «- Oc; *base of device table in control store 
DI4y: T <- Devlndex, cal 1 [GetCon] ; *get a device ID from the device table 

lu <- (stack) xor (T); '•compare with the slot table entry 

goto[DevFound, alu = 0], lu +- T; 
DI4u: goto[DI4y, ALU/ZO], Devlndex *■ (Devlndex) + (2c); '•check for end of table (zero entry) 

stack *- 17c; '•end of tablo reached without match - set slot's task to 17 (unused) 
DI4z: xCNT «- (xCNT)-l; *chock for all Slots processed 

stack&-l, dblgoto[DI4x, DI5, ALU>=0]; *set to next slot 

DevFound: nop; "allocation constraint 
T «- (Devlndex) + 1, cal 1 [GetCon] ; 
initpc «- T; 

T <- LDF[initpc, 14,4] ; ■• Task numbor about to get assigned 
contemp <- T; 
contemp «- LSH[contemp,4]; 
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CyclaCont rol <~ contemp; 

T <- WFA[A1iOnes]; 

LU <- (assigned) AND (T); 

SKIP[ALU-0]; 

G0T0[UI4u], LU *• IC; * Keop looking, task already assigned 

assigned <- (assigned) OR (T); 

I <• initpc; 
*//***•••* Start of Alto Codo *»***«»»«**»**•*••*•**«***«♦♦*■»**♦«******»« 

stack «- T, goto[DI4z]; *rep1aco slot table entry with device tal)1e entry 
*//•***•*■• End of Alto Code ***•**«*••**♦*•**«****«*•***•***».**«.»**»*. 

* = •*•■»**• Start of Pilot Code •*«***•***»*««*«««******•*****«•***'*•****** 

stack t- T;*replace slot table entry with device table entry 
rbufl <- T; * device table entry contains task assignment 
T «- StkP; 

rbiifO <- T; * save the device pointer 
rbufl *- (rbufl) AND (17C); * got the task assignment 
T <- (LSH[ rbufl, 4]); 
rbufl <• T; 
StkP <^- rbufl; 
I ^ ( iburi) + (1774000); 
rbufO <- (rbufO) XOR (377C); 
Stack <- T; 

StkP «■ rbufO, Goto[DI4z]; 
, = ,**#,,, Ei,(l of Pilot Code ♦*■»**«••***"»****»*•»**««***•***♦«***•***•» 

'Clock out new controller ID's 
DIO: xCNT <- 57c; 

stkp <- xCNT, can[ClockOutPattern]; 

•Call all the Init routines 

xCNT <- 17c, call[DI6'l; *do call to set up TPC for loop below 
DI6: xCNT <- (xCNT)-l, gotoiorz, n<0]; 

lu <- ldrr( stack) ,4, 14"|; *ch0ck for Init PC = (no initialization required) 

goto[.^3, Al.U-0], T ♦- Stack&-1; 

bovlndcx <- T; *SGt up to call Init routine for device 

APC&APCTask <- Devlndex; *cal1 Init routine for controller - returns to DI6 

return; 

DI7: LoadPage[Ini tPage]; 

ErrorCnt <■ (10c), gotofBootEmul ators J ; *Set up retry count for disk boot 

ClockOutPattorn; 

usoctask; 

I <■ APC&APCTASK; 

rl inkO <- T; 

xCNT <- 17c; *go through the slot table backwards 
COPl: Devlndex <- 2c; *Devtndox used for loop count 
C0P2: T ^ (stack) xor (IC): "complement bit 

GF.NSRCLOCK; *send bit 

stack <- rcy[stack , 1] ; *get next bit 

Devlndex <- (Devlndex) - 1, gololCOPZ, r>^0]; 

xCNT <• (xCNT) -1; "all slot table entries done? 

stacka-1, goto[COPl, alu>=OJ; *get next word 

APC&APCTASK <- rlinkO, goto[devliET]; 

GetCon: contemp »- T; 'word index into Dtab 

contemp * (contemp) i ( AND@[lshif t[DtabHase , 1] , 17400]C); 

contemp <- (contemp) or (AND@[1 shi rt[DtabDaso , 1] , 377;|C); 

contemp <- rsh[contomp, 1] ; *instruction address in CS 

T * (IdfCAllOnes, 17, 1]) and (T); *low bit tolls which half 

APC&APCTask «- contemp; 

READCS; 

T <- CSDATA, return, AT[lshi f t[InitPage?! , 10] , 100] ; 'location must be even 

OnPago[InitPage] ; 
BootEmul ators : 

lu < BootType, goto[BootSecondBlock , R even]; 

* loadpage[Ini tPagel]; 

* gotop[DiskBootDone]; 

t «- xfTemp, loadpage[0]; 
gotop[lJ!Jloop]; 

*Read disk Sector into page (starting at location 1). 
DiskBoot : 

loadpago[0]; 

T«- StartbiskBoot, callp[PNIP]; 

initrO «• Oc; *word 520 - not used by disk 

initrl «- Oc; *word 521 - lOCB pointer 

initr2 <- Oc; *word 522 - disk status 

initr3 <- Oc; "word 523 = -1 to force a seek 

t<(R400)or(120c); 

pstore4[Nova,initrO],CALL[initRET]; *cloar KBLK at 521-523 (520 is also cleared) 

"Set up the lOCB at 1000b 

DMA^IOOOC; *set up base register for DCB 

PST0RE2[DMA, initrO,0],CAI.L'[initRET]; *c1ear pointer to next DCB at lOOOb, status at 1001b 

xCNT <- 44000C; *disk command goes at location lOOZ (read, read, read) 
PSrOREl[DMA,xCNT,2], CALL[initRET]; 

xCNT «• 2000C; *header goes at 2000 (unlike ALTO) 
PST0REl[DMA,xCHT,3], CALL[initRET]; 

xCNT <- 400C; *label goes at 402 (like ALTO) 
xCNT ^ (xCNT) + (20); 
PST0REl[DMA,xCNT,4], CALL[ initRET]; 

xCNT <- IC; 

PST0REl[DMA,xCNT,5], CALLfinitRET]; ♦data goes at 1 
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♦Since we will initialize ttio intorrupt systOM iatui-, we do not nDOil to worry about 1006 or 1007 
*Location 1008 is unused 

xCNT <■ IC; 

PSTORtl[DMA,xCNr,ll], CALL[in itRET] ; *Disk address 0, with RESTORE bit at 1009 

T <- 2000C; 

T <- (zero) I- (T) H; 

PSrOREl[Hova,xCHTJ, ca 1 1[ ini tREI ] ; •smash linader at :?001b 

•Start tho disk 

initrl «- 1000c; *word 521 - lOCD pointer 

iiritr3 ^ (^ero)-l; *word 523 = -1 to force a seek 

T <- (R100) + (120C); •store block above in 520-623 (words and 2 are zero) 

PSTORE4[Nova,initroi, call [ in it RET] ; 

*Wait for the disk to store good status in the DCB, retry if status is bad 

ErrorCountX <- 20c; 
DWSot: DovXndex *- (zero)-l; *1oop count for status wait 
DiskWait: Pf etchl[DMA, xCNT, J] ; 'fetch status word at lOOlb 

T «- 17C, can [i nit RET]; 

lu <- (idf[xCNT,4,4]) xor (T); 

noto[StalusStored,ALU = 0], Ui ♦- ldf[xCNT, XO, 10] ; 

Dovlndex ♦- (Devlndex )-l ; 

goto[DiskWai t,ALU//0]; 

ErrorCoinitx <■ ( ErrorCountx) 1; 

(jOto[r)WSot,ALU> = 0]; 

NoStatus : 

T *■ NoOiskStatus , qoto[ InitEai i ]; *timod out waiting for disk to store status 

StatusStored: db1goto[GoodStntus , IncE rCnt , ALU-0] , FREEZERESULT; 

GoodStatus: T<- (2000C) ; *chock header at 2001 

r <- (zero) + (T) + 1; 

IM ETCMl [Nova, xCNT],CALL[i nit RET]; 

I.U<xCNT; 
[ncErCnt: 

skip[ALU//0], ErrorCnt ♦■ (ErrorCnt )-l ; 
goto[LoadOthcrCS]; 

goto[UootFai 1 , ALU < 0]; *bad header, try again 

goto[DiskBoot] ; 
BootFail^- 

T ♦■ BadBoot, goto[InitFai 1 ] ; *rcad 10 times, but header was wrong 

*SUBROUTIKE PNIP puts the number in T into the maintenance panel 
*It will be used after initialization is complete 
*Uoes not task unless called from task 
ONPAGE[0]; 

PNIP: iisectask, RIEMP > T, at[PMlPBase, 20] ; 

T <- APC&APCTask, atfPNIPBaso , 17]; 

RCNT <- T, CloarHPanel, call[.H], atf PNIPBase, 0] ; 
PNloop: RTEMPl ^ 40, at IPNIPBase , 1] ; 

RTEMPl < (RTFMPi) 1, dblgoto[ . H , . , AEIKO] , at[PNTPBase , 6] ; 

RfEMP <- (RTEMP) - 1, at[PNTPBnso , 7] ; 

lu <■■ ldf[RCNT,0,1], goto[PNdoiie, AI.IKO], at[PNIPBase, 16] ; 

skip[alu//0], at [PNIPBase, 4]; 

IncMPanol , return, at[PNIPBaso , 2] ; • task 0, tasking ok 

IncMPanol , goto[PNloop] , at[PNIPBase,3] ; • task //O, tasking not allowed 
PHdone; APC&APCTask < RCNT, attPNIPBase ,5] ; 

return, at[PNIPBase, 15] ; 

'SUBROUTINE Doint CRs the bits from T into NWW and sets 

*IntPending. Uses registers and 1 in whatever task calls. 

*rhis code must not allow task switches. 

*If T[0] = 1 on entry, tlie routine does a tasking return, else it returns without tasking 

ONPAGE[0]; 
RV[IntTompl,0]; 
RV[IntTemp2,l]; 

DoInt: IntTempl <- T; 

Intremp2 «- pNWW, skip[ALU<0]; 

T «- 377c, goto[.+2]; 

T «- (Zero) - 1; 

T <- (Stkp) xor (T); 

Stkp ^ IntTemp2, IntTeiiip2 <- T; 

T «- (IntTempl) and not (lOOOOOC); 

IntTempl <- 342c; * RSImage in Kernel 

Stack <- (Stack) or (T); • set bits in NWW 

Stkp t- IntTempl, skip[ALU = 0]; 

T <■ Stack <- (Stack) or (IntPendingBi t) , goto[.>2]; 

T <- Stack; 

Stkp <r IntTemp2, skip[R<0]; 

usectask; 

RS232 ♦- T, return; ♦ set IntPending 



*Very simple fault handler, used only during initialization. 

*If IMAP or DEVICEINIT expects an error, it will set up its 

•TPC to point to the instruction to be executed if an error 

♦occurs, and will set RM 354 // 0. When the hardware gets a fault, 

*thB Kernel will send control to 120 if RXPPB[4:7] # 0. This code 

♦checks RXPPB to determine the type of error. If it is a memory 

*error and RM 354 // 0, it does RESETI«1EMERRS and RETURNS. If not, it notifies 

♦location 7514, task 17 (Kernel go3 overlay location BPSEND). 



In itial ize.nic 3-Nov-79 19:16:53 Pagg 



SETTASKfl?]; 

DVf RXPPR, 23 I ; *Page, parity, bootroason register in kernel 

li\/[RData, '13]; *Rugistor holding data to bo sent to Midas 

RVfFFAULT ,54] ; *zero means send all raiilts to Midas, iioii:«ero means return on mefitory errors 

OnPage[0]; 

FAULTxx: In <- LOF[RXPPR , 7 , 1] , AT[120]; 

golo[MeinErr, alu//0],lii <■ FFAULT; 
*Error was not a incrnory error 
MidasFaiilt: RDnta ♦■ 177400c; *Notify kernel at 7514b 

ROata '- (RData) OR (114C); 

APC&APCTASK ♦- RData; 

RETURN, RData <■ 40400C; "Message for Midas ■= 101b 

MeiiiErr: goto[ . i-2 , ALU//0] , RESETMEMERRS; 
go tofMidasFaul t] ; 
RETURN; *back to the task that caused the fault 

X 

END; 
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INSERT[DOLANG]! 

NOMIOASINIT; 

TITLEI'kortial]; 

Jo 

Hotliflsd June 28, 1979 by RJ . (FFauU «■ 40000c) 
Modified June 28, 1979 by CI. 

This kernel consists oF two parts: 

1) A section that occupies part of pages and 17, runs at task 17, atid handles 
all coiiiinunication with Midas with the exception of Mouse Italt testiny 

(vihich Is done by a tinier). This section refreshes the momory frequently 
without using a timer. 

2) A section that occupies part of page 16, runs at task 16, and handles 

kernel initialization, normal memory re f res ii and Mouse halt testing while a program is running. 

Tho idea is that if you liave a simple program, you can use both parts of 

this kernel, and you will get minimal memory refresh and mouse halt testing. 

If you need something more complex, you overwrite tho stuff on page 10, 

but in tliis case you must supply the code for mouse halt testing. 

% 

SETTASi<[17]; 

H\/[REFR, 77]; '"memory refresh address 

'The following registers hold tho volatile state of the processor on a fault: 

RV[RXALU, 76]; *At.U result and SAI.UF 

(!V[RXAPC,7F.]; *APCTask&APC 

IIV| RXCTASK,74]; •CTASK.NCIA 

RV[RXPP(!,73 1; "Page , Par ity , Boot Reason 

RV[RXSTK,72J; *Stackpointer 

RVrRTMP,711; *temporary 

*rhe rollowing registers are used for DO-Midas communication ( RTHP is also used): 
RV[RWSTAT,70'|; *'status register 
RViRDATA,67]; *holds data 

•Ffault determines Itow faults will be treated when programs are running. If it is 
*zero, all faults will be reported to Midas. If KFault is nonzero, tho kernel will 
*send control through location 120 when a fault occurs and PARITY // (faults with 
•PARITY = are breakpoints). 
RV|:FrAULT,66]; 

'•Registers between 360 and 365 are used by tho Midas overlays. Tho following 

•registers, used by WritoMI, are also in this range. 

RV[RADDR,65]; 

RV[RCNT,64]; 

R\/[RW0,G3]; 

RV[RW1,62]; 



•Constants for Recv and Send 
M(;[RecvUyte, 12]; 
MCfRecvWord, 16]; 
MC[SendHyte,21]; 
MC[SendWord,25]; 

IMRESERVR[,7501,11]; *space for Midas overlays (7500-7527) 
IMRESERVE[,7613,15i; 

SET[CMr)isp,7420]; *8-way dispatch on Midas command 
SET[RWOisp, 7440]; *4-way dispatch on state bits of RWStat 
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"After loading kernel. nib, Midns starts It at 7000 
Starl: 

IMMf <- Ic, Ai[/000]; 

RTMP <- (RTMP) ^ ( 7000C) , noto[KNot ify] ; "Notify Task 0, address 7001 
KMotify: 

APC&APCTASK ♦- RTMP; 
Knl: 

RETUfiN; 

SETTASK[0]; 
* I) d o f i 11 i t i n s 
F(V[RO,0]; 
W[R1,1]; 
RV[R2,2]; 
(iV[fi3,3i; 
RV|;R4,4]; 
RViR5,5]; 
my[RC,6]; 
RV[R/,7i; 
RV[R10,10]; 
RV[Rll,lli; 
RV[R12,12]; 
r(V( (il3,13]; 
RV[R1'1, 14'|; 
nV[R10,15]; 
RV[Rie,16']; 
RViR17,17]; 

*Clenr RG-Rl/ to avoid R parity errors iator 

Rl «- Oc, AT[7001]; 

R2 <• Oc; 

R3 <- Oc; 

R4 <- Oc; 

R5 «- Oc; 

R6 *- Oc; 

R7 <- Oc; 

RIO <- Oc; 

Rll <- Oc; 

R12 <- Oc; 

R13 <- Oc; 

R14 <- Oc; 

R15 *- Oc; 

R16 *■ Oc; 

R17 <■ Oc; 
*C1ear R20-R377 using Stkp 

RO <■ 20c; 
RCIear: 

Stkp «- RO; 

Stack <- Oc; 

ill <^ (RO) xor (377c) ; 

RO «- (RO) ^ 1, goto[RC1oar,ALU//0]; 

RO <- 5c; "*Notify task 17, location 7005 

RO <- (RO) + (177000c); 

APC&APCTASK <- RO, goto[KnlJ; 

SnTTASK[17]; 

RTMP «- (400C), AT[7005]; *SQt Printqr idle, don't drive bus 

Printer ♦- RTMP; 

RTMP <- (lOOOOOC); 
CI rTiniers : 

L0ADTIMER[RIMP:|; *Clear out all Timers 

RESETHEMERRS; *Clear any ponding memory errors 

FEAULT *• 40000c; *Iintialize so tliat Midas takes faults 

RTMP «- (RTMP) + 1; 

LU <- (RTMP) AND (17C); *tliere are 16d timers 

REFR +- (OC), DRLGOTO[InitDone, ClrTimors, ALU=^0]; 
InitDono: 

LU «- TIMER; *Set up tlie Refresli timer 

RTMP <-• (GOOOOC) ; 

RTMP <- (RTMP) OR (Z77C); *simple timer, value lid, slot 17b 

LoadTimer[RTHP]; 

♦Notify task 16, address 7030 to set up timer task 
RTMP <- (167000C); 
RTMP *- (RTMP) OR (30C), goto[KNot1fy]; 

Call[TimerInitDo';e], AT[7030j; *Set TPC[16] to TimorTask 

*The simple timer task assumes slot 17 expired, since all otliers were cleared. 
Time r Task: 

Refresli[REFR]; 

lu <- Timor; *read timer to clear the wakeup 

REFR <- (REFR) + (20c); 

RTMP <- (50000C); *build timer constant 

RTMP *• (RTMP) OR (277C); *simple timer, value lid, slot 17b 

AddToTimop[RTMP]; 
CheckStop: 

T <- Printer; 

RTMP <- T; 

LU *- (RTMP) AND (lOOOOC) ; 

GOT0[MidasStop,ALU//03 ; 
TimerRet: RETURN; 

HidasStop: 

LU «- T, goto[MidasStop],SetFault, AT[7003]; *Midas recognizes a mouse halt as 
*a task 16 breakpoint that was not set by the user. It continues from (absolute) MidasStop+1 
MidasRestart: return, AT[7004]; 
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•return to task 17, address 7400 
TiinerTnitDone: 

RFMP <- (177400C), goto[KNot Ify] ; 
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*Page Zero stuff 

*Wg put the instruction for BufferRofill liero,. 

X37/X: gotop[x37/x] , at[377]; '"dummy instruction 

loadpacje[0], goxo[x377x], at[0]; 'Emulator buffer refill code is on page 

T ♦- APCTASK&APC, AT[ 11 ;' *FauU' entry . Save APC first, then the other volatile regs. 

RXAPC •- r, Ar[100]; 

T <- GETRSPrC[ 147], AT[101]; *ctasl<;, ncia 

RXCTASK •- T, 'AT[t02]; 

T <■ (GETRSPEC[103])" xor (377c), AT[103]; *sstkp, stkp (stl<p is road coniplemonted) 

RXSTK <■ T, Ar[104]; 

liTHP «- 20c, Ar[10{)i; *Sot stl^p to 20 In case ttiore was a stacic overflow ponding 

Stkp <• RTMP, AT [106]; 

T <- (CETRSPF,C[107]) xnor (Oc), AT[107]; '"aluresuU, saluf (both read complemented) 

RXALU <- r, AT[UO]; 

T *■ GriTRSPLC[157], LOADPAGE[0], Ar[lll]; *pago, parity, bootreason 

RXPPO ♦- T, RFSETERRORS, AT[ilzi; 
"Notify Task 17, address 7505 (breakpoint communication) 

RTMP t- (17 7400C) , AT[113]; 

RTMP < (RTMP) OR (lOGC), AT[114]; 

APC&APCTASK <- RTMP, AT[lia]; 

RETURN, AT[116]; 
*Tho go overlay will send control to UserFault (120) if PARITY // and FFA1JLT<0 
UserFault: 

loadpagc[ 17] , at[120]; *Userniay overwrite those instructions if desired 

gotop[HidasFaultJ, at[117]; 
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'•Ttie follovririg is the page 17 portion of the kerriol. Wo get horo 
•after setting up the timer task, 

IU)AT/\ < 'lOOOOC, AT[7400]; ♦send //lOO to Midas 

fiW.STAT ♦- SendByto, 'CAI.L[Send]; 

NextCoin: 

IfWSTAT t- liecvBytG, CAl.L[Recv], AT[/'!04]; 

Dispatch[RDATA,15,3]; 

DlSP[DoOver1ayi; 

DoOvorlay ; 

GOTO[OvorlayArea], AT[CMDisp , 0] ; "Midas ovorlay 
OverlayArea: 

return, AT[7500]; ''placeholder for overlay 

MidasFaiiit: 

return, AT[751Z]; *placeho1dor for fault in Midas go overlay 



'Write Control Store 



*Got Data (word) 
*Get Data 1 (word) 
♦Got Data 2 (byte) 







WriteMT; 

ftWSTAT <- RecvWord, CALL[Recv], AT[CMDi sp , Z] ; 

RADDR «■ T; 

RWSTAT ^ RecvByte, CALI.[Rgcv]; »Got Count (byte) 

RCNT <- T; 
WriteMILoop: 

NOP; 

RWSTAT <- RecvWord, CALL[Rocv]; 

RWO *• T; 

RWSTAT <- RecvWord, CALL[Recv]; 

RWl <■- T; 

RWSTAT <- RecvByte, CALL[Recv]; 

UJ <- RWO; *T has data 2 

APC&APCTASK <- RADDR; 

WRITECS0&2; 

LU < RWl, AT[CMOisp, 12]; '"force writecs to have JA.7 

APC&APCTASK «- RADDR; 

WRITtCSl; 

RADDR ^ (RADDR) + 1, AT[CMDi sp , 14] ; "force writecs to have JA.7 =^ 

RCNT *- (RCNT) -1; 

GOTO[WritGMXLoop, ALU//0]; 

GOTO[NextCoiii]; 

*Read a single R register. Midas will use an overlay to read RM and RM 10 - RM 17, 

■•to avoid generating stack overflow. 

ReadR: 

RWSTAT <- RecvByte, CALL[Recv], AT[CMDisp , 4] ; *Got Address 

STKP <- RDATA; 

nop; 

T «- STACK; 

RDATA t- T; 

RWStat <- SendWord, Ca11[Send]; 

GOTO[NextCoin]; 

■"Write a single R register. Midas will use an overlay to write RM and RM 10 - RM 17, 

■"to avoid generating stack overflow. 

WriteR: 

RWSTAT ^ RecvByte, CALl.[Rocv], AT[CHDi sp , 6] ; *Got Address 

STKP <^ RDATA; 

RWSTAT «- RecvWord, CALL[Recv]; *Get (word) data 

STACK *■ T, GOTO[NextCom]; 
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»SUI3R0UTINF.S Send and Receive commuiilcate with Midas. 

Send: T <- r3h[RI)ATA, 10] , AT[7460"|; *()eit msbyte (location 74G0 is known to overlays) 

RTMP *- T, goto[RPnT|; *will (jut WrStrb on 
Recv: RDATA <■ Zero, Ar[/464"|; -"location 7464 is l^nowii to overlays 
RW: Rerrosh[RtFR]; *R()frosli the memory 

RTHP <- 30c; 
Dlyloop: RTMP <• (RTMP) -1, goto[D lyloop , R>'-0] ; 

REFR *• (RtFR) + (?OCJ; 

T <■ Printer; *Get Printer data 

RTMP <- T; 

T <- Printer; *Insist that the printer yield the same data tliroe times. 

l.U ♦- (RTMP )-(!); 

[*■ Printer, Coto[ . +Z , ALU=01 ; 

Goto[RW]; 

LU <- (RTMP)-(T); 

Goto[.+2,ALU=0]; 

GotoiRW]; 

T <- LDF[RTMP,0,?]; *Get strobe/acl^ bits 

LU ^ (LbF[RWSTAT, 16,2]) xor (T); "Compare to desired bits 

T «- RTMP, GOTO[RW,Al.U//0]; "if reached, clear ail bits 

RTMP t- 400C; 

Printer <- RTMP, RTMP <■ f; •restore RTMP 

Di spatcli[RWSTAT , 13 , 2] ; "dispatch on state bits of rwstat 

LU <- (RWSTAT) AND (4C), OISP[RtjadSt roboOFf ] ; *setup byte/word 

ReadStrobeOf f: 

USLCTASK, GOTOfReadMore, ALU//0], AT[RWDisp , 0] ; *Gct Another byto if word set 

T < R15ATA, RETURN; 
RoadMoro; 

RWSTAT <- RecvByte, GOTO[RW]; *Go get another byto 

ReadStrobeOn : 

T *- RNMasl([RTMP], AT[RWDi sp , 1] ; "Got Data Byte 

RDATA <- (LSIIf ROATA,101) OR (F); *Hergo Byte 

RWSTAT ♦• (RWSTAT) AND ( 4C ) ; *State<-0, Look For RDStrb off, retain byte/word 

RFMP <- (100400C); *Set RdAck 

RPRT: Printer <- RTMP, GOTO[RW]; 

Mlere on Write Ack On - state «- 3 

RWSTAT <^- (RWSTAT) XOR (IIC), GOTO[RW], AT[RWDi sp , 2] ; 

*Hero on Write Ack Off 

RDATA »- LSII[RDATA,10], goto[SendMoro , ALU//0], AT[RWDi sp , 3] ; 

111 <- Zoro, goto[RoadSt roboOf f ] ; *must do non-tasking rotuiMi 
SendMore: RWSTAT <• SendOyto, goto[Sond]; 

LND; 
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insert[dO laiig] ; 

NOMIDASINIT;LANGVF.RSION;MULTDIB; 
lnsert[GlobalDofs]; 
tmt)[keyj; 

* last modified by Johnsson, Auflust 17, 1979 12:27 I'M 

* KoyBoard Translation Tablo from DO's to ALTO's 

* Entry in tlio table is bitniimber'*8 1 wortlnumber 

m0[byte,DATA[(LH[LSHI['T[//l,lO],//2],RII[LSIIIKT[//3,lOl,//4], 
USi:i20[|)p[//l,//2,//3,//4i] 
,at[byte1oci)] 

SET[byteloc,ADD[bytoioc,l"J]]; 
m@[pp,sot[ppx,xor@[l,//l,//2,//3,//4i]sot[ppx,xor@[ppx, rsbi rt[ppx , 4]]'J 
sot,[ppx , xor0[ppx, rsliift[ppx ,2J]]set.[ppx, xor(D[ppx , rshi ft[ppx ,lj]i 
set[ppx ,nnd(:)[l ,ppx]]ppx]; 

set[byteloc , key tab To]; 



byte[177, 177,177,1771 


*00 






byte[177, 177, 177,1771 








byte[177, 177, 177, 1771 








byte[177, 177, 177, 1771 


*04: 






byte[005, 160, 115, 1051 


* Dl, T10(\), T9, T8. 






hytGf07{3, 171,065, 163 j 


« T7, RO(nW), T6, L12 


(rL.4). 




bytoi 172, 100,055,045] 


* L9(FI,3), LO(LF), T5 


, T4. 




byta[035, 025, 012, 17/1 


• T3, 12, ri(osc), . 
'10: 






byte[164,17/,125,1441 


* R4, , Rl, R2. 






byte[004, 173, 177,0241 


' R5, R3(FR5), , LID. 






byto[034,044,054,1771 


* L7, L.4, LI. 






byte[177, 064, 177, 1771 


* , A9, , . 
*14: 






byto[164,074,014, 1551 


* R7, RIO, RU, R8. 






byte[16l,153,113,104 1 


* R9(rR4), R12(swat), 


A7( space) 


Lll 


bytoril4, 124, 134, 1621 


• 1.8, L5, 1.2, L3(DEL) 






bytei042, 177, 177, 1771 


* A8(CTL), , , . 
•20: 






bytcf 177, 177,143,1401 


* , , A6(shirt-R), /. 






byte[ 122, 131,073,063] 


• . , (comma) , m, n , 






bytc[072, 070, 052, 1011 


* b, V, c, X. 






byte[102,177,135,177l 


* z, , -^7, . 
•24: 






byte[142, 152, 141, 1321 


• A4( return) , 46(<-), 


(quote), : 




by Lo| 121,110,062,0431 


* 1, k, j, h. 






byto[023,032,0b0.041] 


* g, f, (1, s. 






byte[061, 177, 103, 1121 


• a, , /\3(lock), /\5{s 
•30: 


hirt-L). 




byte[145,151,123,130] 


* MO, 45(1) . 42([), 


P- 




bytoflll, 071,060,0331 


* 0, i, 11, y. 






byte[013,003,030,021] 


* t , r , e , w . 






byte[031, 022, 177, 1741 


* q, Al(tab), , D2 . 
*34: 






byte[170,133,120,100] 


* A2(bs), =, -, 






byte[061, 053,010,0201 


* 9, 8, 7, 6. 






byte[000, 010, 001, 0111 


* 5, 4, 3, 2. 






byte[002, 015, 177, 1771 


* 1, 48, , . 






end[key]; 
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■riTLr:[ui()EFS]; 

•last edit by Chang on September 10, 1979 4:45 PM, inovG Timor's regs 

* edit by CPT December 22, 1970 3:18 AM 

* edit by Sandman March 23, 1979 3:02 PM 

* edit by Jarvis August 10, 1979 11:35 AM 

*UIDEFS,MC -definitions for lUTFP revision I 
SET[uiUrFPl)ASEADDR,LS!IIFT[uiUrFPPAGE,10]:!; 'FII^ST ADDRESS OF UTFP PAGE 

■"REGISTERS AND CONSTANTS USED BY UTFP TASK 
SETTASK[uiUTFPTASK]; 

StrfuiREADSTATREG.l]; 

SET[uiDRREG,ll; 

SET[uiCREG,2'|; 

SET[uillEDUF,3i; 

SETf.uiCXREG,4]; 

SETi;uillTAB,5]; 

SEr[uiBPREG,6i; 

SErruiCURSM,7]; 

SE r[ u iDDADDIt , ADD[ I sh i f t [ u i UTFPTASK , 4 j , 1] ] ; 

MC[micBl^gndnit,100;|; 

RV[uiDWA,0]; *bit map base register 

RV[ii1DWAl,l]; 

RV[iriTEMP,2]; "must be even/odd pair, see uiDCODONE for PFETCII2 

liV[uiTrMPl,3i; 

RV[uiMPSTATUS,4J; *l(eyboard decode state, bits 10-12: count, 13-17: part 

RV[uiH0USEDEtXY,5;]; "BITS 0-S: XDEFTA, 10-10: YDEI.TA 

RV[uiTMSG,6J; *TNCOMIMG PARTIAL MESSAGE 

RVruiXMSG,7i; "MESSAGE HELD FOR POSTING BY VSYNC 

RV[uiLINK,10]; 'DISPLAY CONTROL BLOCK WORD 

RVfuiNWRDS.ll]; 'DISPLAY CONTROL BLOCK WOI?D 1 

RV[u iDBA, 12]; 'DISPLAY CONTROL BLOCK WORD 2 

RV[uillEPAT, 12]; *Usod durinq initialization only 

RV[uiSLC,13]; *DISPLAY CONTROL BLOCK WORD 3 

RVfuiliEADDR, 13]; *Used during initialization only 

RV[uiQTEMP, 10]; ^Uscd for StorG4 to post mouse buttons (ui\/S4) 

RV[uiQTEMPl, 11]; 

RV[;uiQTEMP2,12]; 

RV[uiQTEMP3,13]; 

RV[uiBUFPTR,14]; 

RV|uillECNT, 14]; *Usod during initialization only 
RV[uiCRW0RD,15]; *IMAGE OF HARDWARE CONTROL REGISTER 
RV[uiVSC0UNT,16]; *Count of lines per field. 
RV[uillCLINK, 16]; *Used during initialization only 
RV| uiLTNESPERFIELD,!?]; *404 = 624b linos per field 
mcj lpflo,224]; 
mci lpfhi,400i; 



RV[uiCC0,10] 
RV[uiCCl, 11] 
RV[uiCC2, 12] 
RV[u iCC3, 13] 



used during initialization only 

used during initialization only 

used during initialization only 

used during initialization only 



* RV[RTCL0W,25]; *Must bo the same as timer's 
IW[RTCL0W,55]; *Must be the same as timer's 

RV[iiiCX,30]; "Cursor X 

RV[uiCY,31]; *Cursor Y 

RV[uiCNT,32]; 

RViuiBASE,34]; *BASE REGISTER PAIR 

RV[ui BASE 1,35]; 

RV[uiNBUFPTR,36]; 

RV[uiBUTT0NS,37]; 
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inc[ho 
riic[liG 
mcl'ho 
nic[lie 
iiic[lie 
inc[he 

II1C[|10 

n)c[he 
mcl'lie 
mc( he 



rO, 
rl, 
1-2, 
r3, 
r4, 
rb, 
r6, 
r7, 



lior 
10 r[ 
her 
he I 
lier 
he (■ 

13 



12 011 

1:9] 
\Mi 
[131 
[11.J 
[IS] 
4 00] 
000] 
0] 
000] 
000] 

0] 

000] 

0] 

0] 

000] 



tal 
and 
CLR 
US 
U 1 nit 
Half 
inc[ 
riic| 
nic[ 
nic[ 
mc[ 

II1C[ 

iiicf 
mc[ 
iiic[ 
mc[ 



vent RAM 

patterns her[12:16] each bit represoii t,s 4 pixols of scan 



k 

Line 
harOp, 
lie rip , 
herZp , 
hor3p , 
he rip , 
herOp , 
her6p 
hor7p . 
liorSp, 
her9p , 



Clock 
203] 
101] 
200] 

1] 
203] 
206] 
107] 
117] 
103] 
12] 
* total 1000 



6, 
131, 

2 

250, 

12, 

2, 
121, 

I, 

1, 
230, 





Blank, 


Half 


Line 


tj 






Half 


Line 


09 
2 

loa 






Half 


Lino 




Blank, 


Half 


Lino 


10 


IIS, 


Blank 






2 


US, 


niaiik, 


Half 


Line 


81 


MS, 


Blank, 


Half 


Lino 


X 




Riank, 


Half 


Lino 


1 




01 ank 






152 
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insort[dO I ang"] ; 

!iOhlIDASINIT;LANGVtRSION;MUL"rOTn; 
1nsf;rt[GTobalDefs]; 
inscrt[Lrnofs'] ; 

f. itleiUIIiilt,]; 
*last fid it by Johnsson April 7, 1979 12: 29 I'M 
♦last edit by Jarvis Juno 13, 1979 9:55 AM 

*Ii! it lalizat Ion for lUTrp 



SErTASK[iriUTFPTASK]; 
0«PAGE[Di,sp1aylMitPage]; 



displayinit: uiHtADDD <• (ZF.HO) , AT[D ispl ayin iti.oc] ; 

OUrPLIT[iiillF,ADOK,uiCI!CG]; •CLEAR THE CONTIiOL RFGISTER 

uillEPAT <- horO ; "lOAD THE IIORI/ONTAL EVENT RAM 
iiillEPAT ^ (inHrPAT)oi(herOp), CAI.L[inLOADHE] ; 

liiHtPAT < (htrl) ; 

UillEPAT <^- (uiHtPAT) on (herlp), CALL[(iiLOADHE] ; 

uiilEPAf <- (her?) ; 

UillEPAT «- (UillEPAT) or (herZp), CALL[u iLOADIIE] ; 



UillEPAT <- (Iier3) ; 

UillEPAT «- (uillEPAT) or (Iicr3p), CALl[uiLOADIIE j ; 

UillEPAT <■■ (hcr'l) ; 

uillEPAf <- (uiMEPAT) or (her4p), CALE[uil OADHE] ; 



UillEPAT < (liorS) ; 

uillEPAT t- (UillEPAT) or (herSp), CAI.I [uiLOAOHE] ; 



uillEPAT <- (here) ; 

uiliEPAT ♦- (uillEPAT) or (lierGp), CALEfu iLOADIIE] ; 

uiHEPAT ♦■ (hor?) ; 

UiliEPAT < (uillEPAT) or (hor7p), CALL[u i LOADIIEJ ; 

uillEPAI <r (horS) ; 

uillEPAT < (iiiHEPAT) or (horOp), GALL[u il, OADHE] ; 

UiliEPAT <- (her9) ; 

UillEPAT <- (uillEPAT) or (her9p), CALL[uiLOADHE] ; 

uillELOADEI): 

uifiASE <- zero; 

uiBASEl ♦- zero ; 

uilfMESPEREtELI) <- Ipfio ; 

uiLINESPERFIEED < (uiLlNESPERFTELD) or (ipflri) ; 

■'sot keyboard words to -1 (key up) 
uiTEMP <- 177000C; 

T <- UiTEMP <- (UiTEMP) or (30C); " 1/7030 
uiCCO <- (ZERO)- 1; 
uiCCl <- (ZERO)-l; 
uiCC2 <- (ZERO)-l; 
uiCC3 >• (ZERO)-l; 

PSTORE4[uiBASE,uiCC0]; " mouse , keyset , etc . 

T < uiTEMP <- (UiTEMP) i(4c); * 177034 
PST0RE4[uiBASE,uiCC0]; * kGyboard[0 : 3] . 

T <- UiTEMP *- (uiTEHP') + (4c); * 177040 
PST0RE4[ui8ASE,uiCC0]; * keyboard[4: 7] . 

uiCRWORD <^ (2Z0C); *ALLOW WAKEUPS, COIAG* 

OUTPUT[uiCRWORD,uiCREG]; *ALLOW WAKEUPS 

UiTEMP <- 377C; 

OUTPUT[uiTEMP,uillTAD]; *1oad the UTAH counter with 377 

ui'lMSG «- (ZERO); 

uiMPSTATUS < T <- ZERO, cal 1 [ui FINIIE] ; 

uiLTNK *■ T, ioadpage[uiutf ppatje]; *First wakoup comes here 

uiDUFPTR *^T«- 37 /C ,GOTOp[uiCSDONE] ; 

"■SUBROUTINE TO LOAD THE HORIZONTAL EVENT RAM 

"■(ADDRESSED VIA CXREG) 

uiLOADHE: T «- LOF[;iillEPAT , 1 , 11] ; 

uiHECNT *- (T); 
uillEEOADLOOP: uiHECNT *- (uiHECNT) -^1 ; 

GOTO[uiFINHE,ALU<0], usectask; 

OUFPUTfuillEADDR, uiCXREG]; 

uiHEADDR « ( uiHEADDR)-H ; 

OUTPUT[uiHEPAT, uiHEBUF] ,goto[ uillEEOADLOOP] ; 
uiFINHE: RETURN; 

cnd[ui init]; 
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iiisert[(JOTaii()'j; 

NOMIDASIMIT; LA!JCVF.RSTON;MULTDXD; 
■msert[G1obalDofs]; 
t it1o[keyi; 

' K(3ynoard Translation Table rroni DO's to ALTO's 

!iii')[bytc,DArA[(l.lirLSniFT[i'/l,T01,//2J,RH[LSHIFT[//3,10],/i'43, 
nSFL20[pp[//l,//l' ,//3,//4"J] 
.atLbytoloc]):) 

SET[byteloc,ADD[byteloc,l]].l; 
iii@[pp,sel[p()x,xor8[l,//;i ,//?,. //3,//4i]set[ppx, xor0[ppx, rshi Ft [ppx , 4]]] 
set[ppx ,xor(.')[ppx, rsliirt[ppx , ;?]]]sot[ppx, xoi'S[ppx , rslvif t[ppx , 1] J] 
set[ppx,aiid0[l ,ppx]]ppx]; 

sot[byto1oc, keytablo]; 

byte[ L77, 177,177, 177'| 
byte[177,177, 177,177] 
byto[177, 177,177, 177] 
bytG[177,177,l/7, 177"! 



byte[5,125,115,105 1; 
byte[ 7b,171,G5,163 I; 
byte[172,160,5.'),40]; 
byti![35,2G,lb,177]; 

hylel' 15 1,177, lft3. 150]; 
byleil5Z, 14, 17 7,24]; 
bytc[34,44,54, 177]; 
byto[177,64, 17/, 177]; 

byte|152,74,173,161]; 
byteri77, 173,113, 104]; 
bytef 114,124,134, 162]; 
byto[42,177, 177,177]; 

byte[177, 177,143, 140]; 
by tef 122, 131,73,03]; 
byte[72. 70,52, 101 ]; 
bytoL102, 177,42, 17 7]; 

byte[142, 154, 141,132]; 
byte[121,110,62,43]; 
byle[23,32,50,41]; 
byto[51,177, 103,112]; 

byte [171, 151,123, 130]; 
byte[lll,71,60,33]; 
byro[13, 3,30,21]; 
byle[31,22,177,174]; 

byte[170, 133, 120, 100]; 
byte[Cl,53,40,20 1; 
byte[ 0, 10, 1, 11]; 
bytG[ 2, 12,177,1/7]; 



*20: Dl, TIO, T9, T8 . 

* T7, l)W, T6, FL4. 

* Fl.3, LF, T5, T4. 

* T3, T2, Tl, . 

*40: 1, , (swat), \. 

* <-, i)3, , LIO. 

* 1.7, 1.4, LI. 

* , A9, 

*G0: <-, RIO, FR5, FR4. 

* , FR5, (space), Lll. 

* L8, 1.5, L2, DEL. 

* CTL. 

*100: , , shift-R, /. 

* . , (comma) , m, 11 . 

* b, V, c, x . 

* z, , (ctl), . 

*120: return, 4G, (quote) , 

* 1, k, j, h. 

* g, f, il, s. 

* a, , lock, shift-L. 

*140: BW, ] , [, p. 

* o, i, u, y. 

* t, r, o, w. 

* c|, tab, , D2. 

*160: bs, I-, -, 

* 9, 8, 7, 6. 

* 5, 4, 3, 2. 

* 1, esc. 



eri(J[key]; 
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iiisePt[ilO laiig] ; 

NOMIDAS1;MIT;LANCVERSION;HULTDIB; 

insert[Globa IDcf s] ; 

iiisert[l-rDofsl; 

IITI Hrexteiidetl-adclress-UtTASK]; 

* Last modified by Chang, September 10, 1979 4:55 PM, movn Timer's Regs'; 

* modified by Johnsson, April 7, 197Q 12:29 Pi>1; 

* modified by Jarvis, Ju;ie 27, 1979 4:00 PM . . 
SFTTASK[uiUTFPTASK]; 

ONPAGt;[uiUTFPPAGE]: 

SET[u iPART,ADD[uiUTFPnASEADDR,20'|]; *backchanne1 message dispatch 
SET[iriSHCU[l,ADD[uiUTFPDASEADDU,60li; "cursor shift 

holds I'.eyboard pi-ocoss state information 
s iiUiaiizos the count fieid with the negative of tlie number of 
e field. As eacli bit comes in, the process incrainonts the count, 
ount roaches zero, the carry out of the count inci-enients the 
field si^es and their associated state are: 

idle 

X mouse deita, twos complement 

y mouse delta 

mouse buttons (and status are Jumped together in single fieid) 

status (video, VS, pov/er supply normal, key data follows) 

key data (7 bits of key, 1 bit of up/down) 

post key data 

74]; '* initiai state, count--4, stato^l 

The mouse resolves 200 pixels/inch, 35 iiiclies/soc is the maximum speed 
required for tracking the mouse. We update the mouse position once every 
field, 80 times a second. Therefore tracking the mouse at maximum velocity 
requires a field large enough hold 88 counts. Adding 1 bit for sign 
mandates an 8 bit fieid for x and another 8 bit fieid for y. Hoto that this 
uses / bit fields. 



■t 


u i MPS f AIDS 


" 


The 1 


roces 


* 


bits 


in til 


» 


Wiien 


the c 


* 


state. Th 


« 


gtat( 


s ize 


» 







* 


1 


4 


* 


Z 


4 


* 


3 


3 


* 




4 


* 


4 


10 


« 


I) 




m 


:[keyStart, 



* check for message from key boar'd 

* calling sequence: iu*- uiMPSTATUS, cal 1[keyCheck] ; 

* does not task ! ! I ! 

keyCheck: uiMPSTATUS*- ( u iMI'STATUS) + l , goto[ koyCon t inue , a1u//0] 
skip[IO atten], use CTask; *state=l, count=-4; 

return, uiMPSTATUSi- OC ; * reset to state='count = 
return, uiMPSTATUS<- koyStart; 

keyContinue: uiTMSG«- rsh[uiTMSC, 1], skipfno atten]; 
uiTMSG<- (uiTMSG) OR (lOOOOOC); 
1u<- ldf[uiMPSTATUS, 13, 5]; 
skip[alu=0], use CTask; 

return; * more bits to go in this field 

* have accuiiuilatod all !)its for this field, dispatch on state 

dispatch[uiMPSfATUS, 10, 3]; 



displ .H]; 



'finish this field *negativo count for next field 



UiMPSTATUS'- (uiMPSTATUS) or (34c), goto[keyXY], at[uiPART, 2\ 



uiMPSTATUS<- ( uiMI'STATUS) or 
UiMPSTATUS*- (uiMPSTATUS) or 
t* rsh[uiTMSG, 10], 



(31c), goto[keyXY], at[uiPART, 3] 
(30c), goto[koyns], atfuil'ART, 4] 
goto[keySt roke] , atfuiPART, 5] 



"but tons/status 

»key 

"reset 



keyXY; uiTMSG*- rsh[uiTHSG, 14], skip[r> = 0]; 

uiTMSG<- (uiTMSG) OR (170C); *nogative number, extend sign 
lu<- (uiMPSTATUS) AND (40C); *kludgy tost for x or y 
t<- 1sh[uiTMSG, 11], skip[ALU=0]; 

t<- uiTMSG ; *this is y 
uiMOUSEOELXY<- ( uiMOUSEDELXY)+t ; 
uiMOUSEDELXY'- ( uiMOUSEDELXY ) AND NOT (400C), goto| keyNoTaskFi oidDone] ; 



keylKS: t*- rsh[uiTMSG, 7]; 
ui RUT TONS*- t; 
1u<- uiTMSG, use C Task, dblgoto[keyFie1dDone , keyldlo. 



r<0]; 



keystroke: uiXMSG*- (lsh[uiXHSG, 10]) ort; 
keyldlo: uiMPSTATUS'- OC; 
keyNoTaskFie IdDone : use CTask; 
keyEieldDono : uiTMSG*- Oc, return; 
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*Do horizontal procossiny. VJo knov/ that tho coiitroMor iieotia data. 
xpreVSO: Ui«- iiiMPSTATUS, r,a 11 [keyChock] ; 

proVSO; r<- 2C, cal 1 [iiiClieckCursoc] ; 

iilVSO: OUTPUT[uiNBUPPTR,uiRPRr;G]; *preconiputod uiNBUFPTFi to hardware. 

T ♦• (iiiDDA) AND NOT (17C} ; 

uiOWA <- T; 
■"Start the first lOFETCII 
uiDWT: I0Fl?.TCH16[:uiBASF.,uiDBADDR]; 

*C.ilcu1ato the read buffer pointer, tho count, and next line's, DBA 
*in the shadow of the first lOIETCH (If there is to be more than one). 

T <- uinurPTR <- 377C; 

uiNDUFPTR ^ (uiNBUFPTR)-(357C) ; *From hero on, MimUJFPTR is used 
*for tho count (-(NWRDS i- (ADDRESS and :17B))) 

T*-RHMASK[uiNWRDS"J; 

uiBUrPTR ♦- (uiBUFPTR)-(T) ; •377- number of words for tho display 

uiBUFPTR <- (uiBUFPTR) OR (lOOOOOC); *Wakeup disabio bit 

ft (RIIMASK[uiNWRDS])H-(T) ; * T <- 2*MWRDS 

uiDBA<-(uiDBA) I (T) ; *uiDBA is now set up for the next scat) line 

uiDWA< r^(uiDWA) ( ( 20C ) ,CALL[uiDWTl] ; 

'M.oop for second through Nth [OFETCH. 

uiDWTl: u1NBUFPTR< (uiNiMJFPrR)>(20C) ,G0T0[uiBUrD2 , R> = ] ; 

[UHETCII16[uiBASE,uiDBAODR],GOTO[uiOUID2X,ALU>-0"l; 

uiDWA<-T<-(uiDWA)>(20C), RETURN; 

uiBlJFD2: uiVSCOUNT ' ( uiVSCOUNT ) - 1 , DBEGOTO[uirNDFIELD , uiCONT, R<0] ; *ohock for field done 
iriBUFD2X: uiVSCOUNT < ( u i VSCOUNT) - I , OBLGOTO[ui EMDFl EID , uiCONT , R<oi ; 
uiCONT: uiSLC«-( ui SLC ) - 1 ,DBLGOTO(.u iOCBDONE , uiHDCB2 , R<0;| ; 

"Calculate tho next line's uiNBUFPTR 
*in tho shadow of the last X0FE1CII16 
uiMDCB2: uiWBUiPTR <- 37/C; 

(<-EDF|;iiiDBA, 14,'!]; 

UiNBUFPTR < (uiNBUFPTR)-(T) ; 

r<-RHMASK[ui NWRDS]; 

UiNBUFPTR <• ( u i NBUFPTR) - ( T) ; 

OUlPUrfuiBUFPTR.ulBPRFG], goto[xp reVSO l ; 

The OCB is finished. 

uiDCBDONF: 1u< uiHPSTATUS, cal 1 [keyCheck | ; 

T<-(uil INK) ; 

uiBASEl <- OC, GOrO[uiGelNoxtDCB,ALU//0|; 
*rho DCB chain is exhausted. 

OUTPUT[uiBUFPTR,uiBPREG]; "Send read BUFPTR to tho hardware 

T <- 2C, call [u iCheckCursor ] ; *does TASK return 

goto[uiVSl]; 

uiCetNoxtDCn: 

uiBASE < T; *T contains LINK. Sot base register to point to next DCB 

OUTPUT|"uiBUFPTR,uiBPREG]; 'Send read BUFPTR to the hardware 

uiNBUFPTR *- 3?/C; *Tnit for later 

iiop;*two instr after output 

PFETCll2[uiBASF,uiDBA,2]; *Fctch DBA, SEC 

UiBUFPTR <• 377C; *Init for later 
*Clieck for long pointer addressing 

PI ETCH2[uiBASE,uiLINK,0]; *Fetch Eink,HWRDS 

EU<-ui SEC, got o[ui Long, R<oi; 

*Short Poiirter 

T <- uiDBA; 

uiBASE <- T,goto[uiEvenOdd]; 

*Long Pointer 
uiEong: 

PFETCH2[uiBASE, uiBASE, 4]; *retch directly into the base register 

uiSLC *- (uiSEC) AND NOT (lOOOOOC); «clear tho sign bit 

•Bias uiDCB.SLC by -2. Note that if uiDCD.SLC = OR 1, at least one 
"scan line will bo displayed. 

uiEvenOdd: LU <- LDF[uiCRWORD, 17 , 1] ; *Check EvenFiold 
uiSLC <- (uiSLC)-(2C),G0T0iuiDBA0K,ALU//0]; 

uiDBABAD: T«- RHHASK[ ui NWRDS] ; 

uiBASE <- (u^DASE)^(T); 
uiDBAOK: T«-LDF[uiBASE , 14, 4] ; 'Set up NBUFPTR for the next scan 

UiNBUFPTR ♦- (uiNBUFPTR)-(T); miNBUFPTR ^ 377C earlier 

T<-RHMASK[uiNWRDS]; 

uiNBUFPTR-t-(uiNBUFPTR)-(T); 

"Now fix up the base register so that it is hex aligned and DBA contains the residue 

T ♦- (UiBASE) and (17C); 
uiDBA <- T; 

UiBASE <^ (UiBASE) and not (17C); 
♦fix up the high half of the base register 
T <- lsh[uiBASEl,10]; 
UiBASEl <- (RHHASK[uiBASEl])+(T)+l; 

T<- 2C, can[uiCheckCursor]; *returns to VS2 

*We have Just picked up a new DCB. Wo must output HTAB, 
•then go to normal state processing. 
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liiVS2; T <■ LDr-[uiNWRD.S,?.,6]; 'calculate IITAD 

LU«-l.Dr[uiNWRDS, 1,1]- 'black backGroimd bit 

iiiBUFPTK *- (iiiBUri'TR) - (T) ■ I ,GOrO[ . i 2 , ALU//0] ; *u iOUr-PTFi < 377C oarl ler 
inBUl-PTR <- (uiBUFI'TR) AND NOT (200C); 
OUTPUr[uiBUrPTR,uiHrAD],goto[uiVSO]; *sond it 

uiK.NDFIELD: uiBASEl ♦- OC ; 

uiCRWOnO ' (uiCRWORD) xor (3C), goto[uiFDi;| ; 
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*Wo have (lisplayod t.ho entire chain and the field is not dono. 

*Wait for ond of field. 

xpreVSl; T<- 2C, call [uiChockCursor] ; 

prcVSl: can[liiWAKF.OI'F]; 

uiVSX; ill*- uiMPSTATUS, call [keyCheck]; 

uiVSCOUNT <-■ (uiVSCOUNT)-l, GOTOlu iFIELDDONE , R<0"| ; 

OOtorxpreVSl'l; 



•Turn off wake allow and return 

uiWAKEOFF: uiCRWORD <- (uiCRWORD) AND NOT (200C); *AnowWake <- 

OUrPUT[(iiCRWORD,uiCnEG ]; 

iiiCRWORl) < (iiiCRWORD) OR (200C); 

uiDUTPTR <~ 377C; *sct up for next run. 

OUTPUTf u icnWORD , u iCRtG] , goto[Outputwai t] ; 

•Check for cursor visible. Enter with T=2. 
uiChockCursor: 

uiCY»- (uiCY)-(T), COTO[u iCURRET, R> = 0]; 

uiCX *■ (uiCX)i(lOOOC); 

LU *■ LDriuiCX,3,lJ; 

GOTO[uiStNDCX,ALU=0]; 

uiCX <- OC ; *finishfld displaying the cursor 

uiCY <- lOOOOC; 
uiSENOCX: 

OUTPUT[uiCX,uiCXREG]; 
Outpulwai t : nop; 
uiCURRET: return; 

* flu) field is finished. Make Vsync pulse. 
uiFIELDDONE: 

uiCRWORD <- (uiCRWORD) XOR (3C); "complemaii f, field, sot PreVS. 
iiilDl: MiBUFPTR <■ 2000; 
•send black background so that lisync won't be screwed up 

OUTPUT[uihUFI'TR,uiirrAB], cal 1 [uiWAKEOFF] ; *return3 to uiVS3 
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*We are in tlio first scan lino of a vertical sync pulsa. 
♦Post tho mouse COORDINATES to core. 
U1VS3: uiHASE *- OC ; 

T<- (uiBUFPTR)t-(25C); "A2Ab AND 420b ^- Mouse x and y. 

PFFTCH2fuiBASF.,uil-'iiAl; *u iDBA and uiSLC a ro used as temps. 

Ui<' uiKPSTATUS, cal likoyChockl; 

uiMOUSEDELXY <- LCY[u iMOUSEDELXY, J 1] ,Dni.GOTO[u iSEMl, u iNSFMl , IKOJ; 

uiSEHl: T <- 17 /C,GOTO[uiSEHlFIN] ; 
uiNSEMl: T <- (ZERO)-l; 

uiSFMlFIfJ: r<- (LDF[uiMOUSEDELXY,7,7]) XNOR (T); 
uiDBA <- (uiDBA) t-(1 ) ; 

T<uiMOUvSEDELXYt-LDF[uiMOUSEDELXY,0,7],DriLGOT0[uiSEM2,uiNSEM2,R<0J; 

uiSEM2: T ♦- (uiMOUSEDELXY) XNOR (1770); 

uiHSEH2; uiSLC <- ( u 1SLC ) 1 (T ) ; 
T<- (uiBUFPTR) i-(25C); 

P3T0RC2[ uiDASE.uiDBA]; •Restore coordinates 
uiMOUSEDELXY <• (ZERO), call [uiV>/AKEOFF] ; *rGturns to ulVS-l 
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*Post. the moii-50 BUTTONS 

uiVS4: iriDASF.<-177000C; 'NOTE modification of uiBASE 

iiiDASt' (uiDASE) + (30C); *Fetcli 17/030 

PI-ErCMl[iiiOASE,uiQrEMP,0]; *ii10TEMP overlays LIMK, NWRDS, DBA, SIX. 

ill*- uiMPSTATUS, caliLkoi-Check]; 

'•convert UTFP moiiso button ortlor into ALIO order 

•On tho UTFP, the sof|UGiico for the buttons (nUTT0MS[13 : Ib'J) is right, 

•middle , loft , and I's mean buttons depressed, 

*0n tho ALTO, 177030[lb : IV] correspond to left , right , middle , and I's 

*in memory mean button NOT depressed. 

t<- ldf[uiBUTT0NS,13,l]; Tight button 

uiTEMP <- t; 

t <- ldf[uinUTT0MS,14,ll; *middie button 

uiTEMP <- (ish[uiTEMP,ll) or (t); 

t *- (uiUUTTONS) and (-IC); *loft button 

t ^ (UiTEMP) or (t); 

uiQTEMP '- (uiQTEMP) or (7C) ; 

t ^- uiQTEMP <- (uiOTEMP) xor (t); 

* ignore uiOTEMPl and uiQTEMPZ 

uiOTEMP3 <- t; 

nop; " wait for writo of register 

PSTORE4[uinASE,uiOTEMP,0]; 

uiBASE «- ZERO; *resot base register 

•lotch new deb chain header and interrupt mask. 

T t (uil!UEPTH) + (ZlC) ; ••T<'I20, Since u iBUrPTR-3// . 
PEErCII2[uiDASE,uiLINK]; *Get new deb header from 420, intmask from 421. 

*check for realtime clock update 

♦save S(KP 

• uilEMP <- 325C; 'Point to RfCLOW 

UiTEMP <- 3G5C; "Point to RTCLOW 

r- nSTKP; 

STKP <-• UiTEMP, uiTEMP «- T, HoReglLockOK; 

UiTEMP < (UiTEMP) XOR (377C); *STKP read inverted 

STACK <-(STACK) AND NOT ( lOOOOOC ) , GOTO[ui NORTCOV, R> =0] ; 
*mu.st update RTC 

uiTEMPl*-400C; 

T<-(uiTEMPl) H(30C) ; 

PF ETCH 1 [ui BASE, ui TEMPI]; 

ui TEMPI <- (uiTEMPl) r 1; 

PSTORE l[ui BASE, ui TEMPI]; 
*cause vertical field interrupt 
uiNORTCOV: STKP <- uiTEMP; 

loadpage[0]; 

T <- uiNV/FfDS, ca n p[DoIn t] ; "iirterrupt mask fetched from 421 above 

uiNOTMR: call [uiWAKEOFF] ; *Roturns to uiVS5 
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*Post the keyboard 

inVS5: lu ^ LHMASK[u iXMSG] , call [uiKPOSTJ ; « 

lu «- lliHASK[uiXHSG], cari[uiKPOST"i ; *do it again for other bi^te 
l(j<- uiMPSTATUS, call [keyCliGCk] ; 
uiUASE <■ ZERO, G0T0[proVS6] ; 

LiiKPOST: 

uilEMP <• KeyTablell ,goto[ . I 2 , alu/ZO]; *if no data, return right away 
uiXMSG «- lsh[uiXHSG, 10],' return; 'shift to other keyboard char 

uiTEMP <- (uiTEMP) or (KoyTahlcL); 

t <- Idf [iiiXMSG , 1,5'|; *Get word number (4 bytes per word) 

uiTEMP ♦■ (uiTEMP) > (T); *Form final address 

t <- Ulf [uiXMSG,6, 1]; *set h2 to high/low word 

APC&APCTASK <- uiTEMP; *Address to read in Control Store 

READCS; *qnt the word 

t * CSOATA, AT[uiUTEPf)ASEADDR,300'i; *iiui5t bo at an oven location for READCS 

uiDDA <- t; ' . 

lu <- IDI [uiXMSG,7,l]; "low or high byte 

gotol . i2,"alu/'/01, uiBASE <- 1770G0C; 

uiDRA <- RSHfuiDliA, 10 1; *Mced upper byte 

UiBASE <- (iiiOASE) t(34C); *uit!ASE ♦- 1770340 

T<-(EDrf uil)t!A,lG,3]) ; *Get word number 

PrETCIIl[uiBASE,uiNWRDS]; *u1NWRDS is a temp - fetch Alto kbd word 

uiDOA <- I.Dr[uiDOA, 11,4]; *Get bit number 

uiBASE <■ ( uiBASE) I (T) ; *fix base register foi' store 

uiTEMP <• T * lOOOOOC; *Do the function uiTEMP <• 100000 rshift uiDBA 

uiUBA <- RSII[uiDnA, 1], go to[ . >? , REVEN] ; *tost bit 15 
UiTEMP «■ T ♦- RSil[uiTEMP, 1]; '"shift 1 

uiOBA <• RSM[uiDDA, 1], go tof . ^2 , REVEN] ; *tQSt bit 14 
UiTEMP <- T <• RSII[uiTEMP,2]; "shift 2 

uiOBA < RSHfuiDBA.l], goto[ . i-2 , REVEN] ; *tost bit 13 
uiTEMP <- J <- RSII[uiTEMP,4]; 'shift 4 

uiDBA <^ liSM[uil)BA,l], go to[ . • 2 , REVEN] ; 'tost bit 12 
uilEMP «• f «• RSIl[uiTEMP,10]; *shift 8 

uiKDD: *test for key down (0) or up (1) 

uiXMSG <- lsh[uiXMSG, 10], DBLGOTO[ui KDOWN , uiKUP , r> = 0]; 

uiKOOWN: uiNWRDS <- (uiNWRDS) AND NOT (T), GOTO[u i KSTORE] ; *key down, clear bit 

uiKUP: UiNWRDS <• (uiNWRDS) OR (T); *koy up, set bit 

uiKSTORE: go to[uiCURRET] , PSTOREl[uiBASE , uiNWRDS, 0] ; '"store word 

preVSG: uiBUEPTR •- 377C, cal 1 [u iWAKEOEE] ; '"returns to uiVSS ' 
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"Set up th8 cursor. 

•Get cursor coordinates from IZGb (X), and 427b (Y). 

uiVS6; T *- (uUiUfPTn) H? /C) ; 'uiBUFPTn = 3/7 on entry. 

PFL"rcil2ruiBASF.,uiCX]; 'Cursor X,Y coordinates 

1u<- uiMPSTATUS, cal 1 [koyCheck] ; 

uiCY «- (uiCY)H.: 

•The cursor X counter is loaded by HSF fryni CXREG. It 1s 
•clocked by [(EdgeClock and SelCursM) or (NClk and (HSF oi- VS'))]. 

*The cursor liardv/are counts the X offset from end of hori7ontal synch. V/e 
*iiuist fudge for interval between horizontal synch and blank. 
uiCX<- (uiCX) + (40C); 

*rhe cursor buffer is divided into 8 sogmonts with 6 nibbles in a soginont. 
*rho cursor itself is 16 bits (4 nibbles) wide but a segment must have 5 
•nibbles to allow for a cursor not aligned on a nibble boundary. The sixth 
*nil)ble must be all zero. The harware ors this nibble with all displayed 
•nibbles following tho cursor. Loading CXRFC with a 5 disables the cursor 
•by oring this zero nibble from the cursor with display data all across tho 
•lino. 

•When tho cursor is visible, -X is loaded into tho CXRFG in tho 
•scan line preceding the cursor, and this value is loaded into 
•tho cursor counter by H.S. When V3 = 0, tho cursor counter is 
♦incremented by NClk, and when it becomes 0, the next nibbles are 
•sent to tho display. 

•Hero, we wairt tho cursor counter to address the cursor buffer so 

•that we can load it one segment at time. The cursor segment is CXKFr,[4:e] . 

•We start with segment 1, CXRtG<- lOOOC, and during each of tho 

•next 8 scan line times wo will send bytes of cursor data followed 

•by a sixth nibble of zero to tho buffer, then increment the segment value in 

•uiCXHFG. 

•uiVSCOUNT is used to hold the value to be loaded into uiCXRFG. 
uiVSCOUNT <- lOOOC; *.Start load at segment 1. 

'Tho even scan lines of tho cursor will be displayed if CY is even 
•and the field is even, oi- if CY is odd and tlie field is odd. 
•Othorwise, the odd scan lines will be displayed. 

uiBUFPTR <- (uiBUFPTI?) + (32C); *uiBUFPTR *- 431b 

r«- IDFf uiCRWODD, 17,1. I; •adjust offset according to even/odd Field 

r<- (l-DF[uiCY, 17, r|) XOR (T); 

F<- (uiBUFPTn)+T; *starts at either 431b or 432b 

uiDBA «- T, gotoiuiMORFCSETIJP]; 
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*t.oad one segment of the cursor memory (5 nibbles plus one zero nibblo). 
*Tha address was set up during the previous scan lino. 

uiMORECStTUP: OUTPUT[uiVSCOUNT, uiCXRHG], ca 11 [uiWAKEOFF ] ; 
T<- uiDBA; "Pointer to cursor segment 
PFF.TCIll[uiBASE, uiTEMP]; "Fetch segment 
1u«- uiMPSTATUS, call [koyCheck] ; 

uiDBA+' (uiDBA) + (2C) ; *Incremont pointer (by 7. duo to interlace) 
DISPATCII[uiCX, :16, 2]; *Doteimine amount to shift word. 
DISP[. H j, uiTEHPl«- 17C; 

r<-'0C, GOTO[uiSIICDONE"|, AT[uiSIICUR,0] ; 

!'■■ I.SII[uiTEMP, 3], AT[uiSHCUR,li; 

uiTFMP<- RSIIfuiTEMP, l'|, GOTO[uiSIICDONE]; 
T<-LSII[uiTEMP, 2"|, 

uilCMP*- RSH[uiTEMP, Z], GOTO[uiSliCDONE]; 
T<- ISII[uiTEMP, r|, 

uiTEMP<- RSniuiTEMP, 31, GOTO[uiSIICDONE]; 



AT[uiSMCUR,2]; 
AT[uiSHCUR,3]; 



uiSIICDONE: uiTEMPl<- (uiTEMPl) AND (T); 
uiCNT<- 2C; 

uiSENDCLOOP: T<- LDF[uiTEMP, 0, 4]; *Loop for first 4 bytes 

uiNWRDS<- T; *uiNWRDS is a temporary, not used during VS. 

OUTPUr[uiNWRDS, uiCURSM]; 

uiCNT<- (uiCNT)l, skip[R<0"|; 

UiTEMP'- LStl[uiTEMP, 4], GOTO[triSENDCL.OOP] ; 

OUTPUTfuiTEMPl, uiCURSM"]; *Soiid 0th nibble, 

LU< LDr[uiVSCOUNT, 3, 1]; 

OUTPUT[uirrMP, uiCURSM], sk ip[Al U//0] ; *0 for (jth byte 

uiVSCOUNr<- (uiVSCOUNT) i(:lOO0C) , COTO[uiMORECSETUP] ; *next segment 

T<- RSIIfuiCX, 2]; *cursor loaded, CX counts nibbles, not bits 
uiCX*- (ZERO)-!; *And it is negated. 
I U<- uiCRWORD, skip[R ODD']; 'Tost field 
uiCY> (iiiCY)-( IC) ; *GVon field 
uiCSDONE: uiVSCOUNT<- 60; 'initialization code jumps in here 

OUTPUl[uiVSCOU!JT, uiCXREG], cal 1 [u iWAKEOFF] ; "disable cursor 

*llow do I love thoQ? 
*Let me count tho v/ays . 

*This is the best accounting that I can mannago for what goes on in the 
♦horizontal scans during vertical retrace 

*uiVS3 mouseXY 1 

*uiVS4 buttons, RTC, field wakeup 1 

*uiVS5 keyboard 1 

*uivs6 cursor setup I 

* load cursoi' 8 



subtotal 12 



*The UTLF gives 404 or 405 visible lines for even or odd fields respectively 
*(seo uiEVX and uiODX). In order achieve an 8/5 lino scan the UTlf must idle 
*21 lines. 

uiVSCOUNT<- 20C; 
uivsloop: dblgoto[.H, uiVSlO, alu//0]; 

lu<- UiMPSTATUS, call[keyCheck]; 

can[uiWAKEOFFi; 

uiVSCOUNT<- (uiVSCOUNT)-l, goto[ui vsloop] ; 
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•Wg are in tlie last scan Vino of a vertica! sync pulse. 
•Sot up uiVSCOUNT for tho next riald. 
*uil.INI< has rv420, fetchetl riucing VS4. 

liiVSlO: iiiCRWORCc (uiCRWORD) AND NOT (2C); *ProVS <- 

OUIPUl[uiCRWORD, uiCREG]; 

uiDUFPTR< (uiiUlFPlR) OR (lOOOOOC); 

lU*- LDF[inCnWORD, 17, l'|; 

T<- uiLINESPrRriELD, DBlGOTOfii i tVX , iiiODX, ALU=0]; 
uiEVX; UiVSCOUNT*- T, GOTO[uiDCBDONE j ; 
uiODX: ui\ySCOUHT<- (ZERO) i-(T) H , GOTOiuiDCUDONE] ; 

entl[ui task] ; 
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* MicroD 8.7 (OS 16) of June 8, 1979 

* Last edited by Chang, September 12, 1979 10:52 m 

* edited b.y Chang, July 6, 1979 6;1Z PM 

* edited by Johnsson, June 18, 1970 !j:?A PM 

lNSr;Rr[OccupiedDefs]; 

TITLE[MesalOccupiQd]; 

* locations feserved on page 



IMREStRVF.[0, 0, ?']; 

TMRESERVEfO, 100,' 56]; 

TMRESERVEfo, 1G6, 10]; 

XMRESERVEiO, 166, 5]; 

rMRESERVEfO, 173, 4]; 

IMRESERVEiO, 177, 74] 

IMRESERVE[0, 300, 32] 

IHRESERVErO, 335, 23] 

IMRESERVE[0, 361, 17] 

Locations reserved on page 1 

1MRESERVE[1. 100, 142]; 

1MRESERVE[1, 2 73, IJ; 

Locations reserved on page 2 

[MRESERVE[2, 0, 100]; 

TMRESERVE[2, aOO, 172]; 

IMRESLRVE[2, 310, 60]; 

1MRESERVE[2. 372, 1]; 

IMRESERVE[2, 3/4, 1]; 

IMRESERVE[2, 376, 1]; 

Locations reserved on page 3 

IMRESERVE[3, 0, 367]; 

IMRESERVE[3, 370, 10]; 

Locations reserved on page 7 

IMRESERVE[7, 27, 1]; 

1MRESERVE[7, 76, 1]; 



buffer trap and fault 

PNIP 

PNIP 

LRJ 



ovoriayed linkage location 

• overlayed linkage location 



* Reserved for RS232 

* over! ay able in it code 

* Reserved for RS232 

* over! ay able in it code 

* over! ay able init code 

* ovorlayable init code 



overlayed linkage location 
overlayed linkage location 



Locations reserved on page lOB 

IMRESERVE[10, 0, 363]; 
Locations reserved on page 12B 

1MRESERVE[12,. 0, 361]; 
locations reserved on page 14B 

1HRESERVE[14, 0, 137 J; 
Locations reserved on page 15B 

IMRESERVE[15, 300, 1]; 
Locations reserved on page 16B 

IMRESERVE[16, 0, 370]; * initialization 
Locations reserved on page 17B 



overlayed linkage location 



IMRESERVE[17, 0, 140]; 
IMRESERVEil?, 0, 40]; 



Key Translation Table 



END; 
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* MIcroO 8.6 (OS 16) of April 27, 1979 

* at 18-Jun-79 16:08:59 

* Last edited by Chang, July 16, 1979 3:16 PM 

* edited by Joliiisson ,■ June; 18, 1979 4:27 PM 

INSERT[OccupiedDefs]; 

TITI-E[MBsa20ccupied]; 

* Locations reserved on page 



IHRESEHVECO, 0, 2'|; 

1MRESERVE[0, 2, 12]; 

* ■ [MRESERVE[0, 156, 10]; 

* IMRESERVE[0, 173, 4]; 

* IMRESERVE[0, 300, 32]; 

* Locations reserved on page 2 

* [MRESERVE[2, 100, 63]; 

* Locations reserved on page 4 



IMRESERVE[4, 0, 340] 

[HRESERVE[4, 341, 1] 

rMRESERVE[4, 345, 1] 

1MRESERVE[4, 351, 1] 

IHRESERVE[4, 355, 1] 

IHRESERVE[4, 361, 1] 

IMRLStRVL[4, 365, 1] 

IMRESERVE[4, 371, 1] 

IMRESERVE[4, 375, 1] 

IMRESERVE[4, 377, 1]; 



Locations reserved on page 5 

IMRESERVE[5, 0, 400]; 

Locations reserved on page 6 

1:MRESERVE[0, 0, 362]; 

IMRESERVE[6, 365, 1]; 

IMRESERVE[G, 371, 1]; 

tMRESIRVE[G, 375, 1]; 

1HRESERVE[6, 377, 1]; 

Locations reserved on page 7 

IHRESERVE[7, 0, 400]; 
Locations reserved on page IIB 

IMRESERVE[11, 0, 366]; 
Locations reserved on page 13B 

IMRESERVE[13, 0, 400]; 
Locations reserved on page 14B 

IMRESERVE[14, 137, 241]; 

Locations reserved on page 15B 

IMRESERVE[15, 0, 374]; 
IMRESERVt[15, 377, 1]; 

Locations reserved on page 16B 
IMRESERVE[16, 0, 357]; 

Locations reserved on page 17B 
IMRESERVE[17, 0, 140]; 
END; 



buffer trap and faui t 

PNIP 
PNIP 
LRJ 
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insent[(10laiig"l; 

NOMXDASINir;i.ANGVERSIOM;MULTDIG; 
iiisi;rl[G lobalDefs']; 
inLt[inj]; 

* MESA JUMP AND ARITHMETIC INSTRUCTIONS 

* last iiiodifiod by Johnsson, Juno 11, 1970 11:27 AM 

* last modified by Sandmnii, May 9, 1979 ?:24 PM 

* last inodiCied by Sandman, March 13, 1979 6:30 PM 

% 

This codo assumes that PCB,,PCBh is a baso regi:iter pair pointing 

to tho ciirront instruction quadword. The low two bits of PCH are 0, 

and tho low 3 bits oF tlio PC (vjhich point to a byte within the quadword) 

are kept in the (hardware) register PCE. 

Since codo segments cannot cross 04K boundaries, and are limited to 
32K words in length, the two bytes of PCHh are forced to be equal, 
ratlier tlian having the least significant byte differ from the msb 
by 1 as is the normal case for base registers. 

PCF is incremented by the functions NextXnst and NextData. It is 
assumed that the register PCX is loaded automat ical iy from PCF at 
the start of every bytecode. 

Only the low 3 bits of PCf- are loaded by PCF*-, but PCF and PCX 
contain 4 bits so that overflow will be handled properly. 
% 

MosaRofil16: gotop[Mesal!ef i 1 1 ] , Pfe tch4[PCfi , IllUF , 4] , at[337/]; •refill for page 

ONPAGE[0]; 

'Buff or refill . 
MesaPufill : 

PCB <- (PCU) ^ (4C); 

PCF <- liZero; 

»-*"***** Start of Pilot Code ♦«*********«*«****************»*»*****■'>'**** 

nop; '" hold page fault on page 

return; 
*=*•'**** End of Pilot Code ****«***»**************»«**»****«* *********** 



*//*•**•** Start of Alto Codo *•*«*»»*«*. 
Sv;apnytos : 

IBuf <:- lcy[IBuf. lO'l; 

IBufl «- lcy[lBufl, iO]; 

IBuf 2 <• lcy[IUuf2, 10]; 

IBuf 3 «- lcy[inuf3, 10), RETURN; 
V/******* End of Alto Code ■*»***«****«*> 
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0NPAGF.C6]; 
% 

Jn , n=2-8. PCF points to the byte beyond the opcoda wlioo oxocut ion 
starts, so If PCF is odd, the opcode is in the even byte of the 
current word, if PCF is even, the opcode is in the odd byte of the 
previous v;ord. The word di sp I acenient of the target f roiii PCF[0:?.J 
and the final Isb of tho PC are: 



PCF 


PCF 


even 


odd 


0.1 


1,0 


1.0 


1,1 


1,1 


2.0 


2,0 


2,1 


2,1 


3,0 


3,0 


3,1 


3,1 


4.0 


4,0 


4, 1 



T<-OC, GETnSPEC[12/], dbinoto[JnE , JnO, PoveiiJ , opcode[200]; 

rue, goto[Jnx'|, opcodo[Z01]; 

T<^1C, GF.rnSPECf;i27], dblf]OtoijnF,JnO,r(cvon], opcodG[202]; 

T<-2C, goto[Jnx"j, opcode['203] ; 

T<2C, GFrRSPFX[127], dblgo toijnF , JnO , tievon] , opcode[204]; 

T< 3C , 9oto[Jnx], opcodo[200]; 

T<-3C, GFTRSPECil27], db (go toiOnE , JnO , Reven] , opcode[206;] ; 

T'lC, goto[Jnx], opcode[207;|; 

Tt- (1df[GETFiSPEC[127;|,14,3J) ^ (T), go to[ JnOcom ] ; 



JnE: r*- (ldf[GETPSPEC[127'|,14,3 I) + (T) , gotof JnECoinl ; 
JnO: T< ( ldf[GETRSPEC|;i27], 14,3]) + (T) +1, go to[ JnEConi] ; 

JnECoin: Pf otr,h1[PCn , IIUJF] ; 

T<- PCD <- T; "bypass kludge 
GETRSPEC[127], dbi goto[.}nECo , JnECe, Rodd]; 

JnECe: PCS f- (lsh[PC13,l]) + 1, goto[JnFin]; 
OnECo: PCR «- ( 1 sh[PCB , 1] ) , goto[JnFin]; 

JnOCom: Pf etch'l[PCB , IBUF] ; 

T< pen <- T; "bypass kludge 
GtTRSPEC[127], db 1 goto[ JnOCo , JnOCo, Rodd]; 

JnOCo: PCD <- (1sh[PCD,l]) + 1, goto[JnFin]; 
JnOCo: PCB f- ( 1sh[PCB , 1 j ) , goto[ JnF in] ; 



* = ***•*•* Start of Pilot Code * r***«**«*****»*^» »* *- t*N***a 
JnFin: PCF <- PCB; '"only the- low 3 bits of PCF are loaded 

PCB <- T; 
,,*„**,,,** E|,(j of Pilot Code ■»****«*****************«»«««*--i 

*//•****** Start of Mto Code ************ **•«***• «**»****< 
JnFin: PCF <■ PCB; *on1y the low 3 bits of PCF are loaded 

PCB <- r, LoadPagetO]; 
JSwap: Cal 1 p[SwapBytes] ; 

lu «- NextInst[IBUF], callfJnRETx]; 
*//***■'*** End of Alto Code **************«***************< 

P6Tail: 

JnRFT: lu ♦- Nexllnst[ IBUF]; 

JnRETx: PCB «■ (PCB) and not (3c), NIRET; 
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% 

Jump Uyto: alpha is a signed displ acenien t ■ f rorit tlio opcodo 

This works for -128 < alpha < 122, 

This code (and that for JW) uses tho register AllOnos as a 

temporary, and resets it v/lien done. I 

% 

JB: T<- (NextData[IBUF])-l, opcode[2 10] ; 

T <- (PCXfiEG) + (T); *PCX ^ 0..7 here (tho NuxtData may have caused refill, but 
*PCX is still correct, since PCX is loaded when the irof i M code returns) 

*T has tho signed BYTE displacement relative to PCB : 

"If jumping backward in same quadword, negative may have become positive; 

'mask T to 8 bits 

♦ = ****•** Start of Pilot Code •*♦*********»*•*•***»*»<-**»*•****••■:•****»«** 
Jflr: AllOnes *- ( rhmask[Al lOnos]) AND T, goto[JB(i, noMZbitS]; • 
*=******* End of Pilot Code *******•««*»•***. *..»******»«*****. ,**»*.****« 

*//•****** Start of Alto Code j************************** ******■»**«**•*>*»* 

JBr: T <- ( rhmask[AnOiios] ) ANO T; • 

AllOnes ^ (Zero) ^ (T) f 1, goto[J!3q, no(l2bit81; • 

*,'/*•"*•** Eiid of Alto Code **»**«**«***^i'-*i' ****»♦*•**'• «*♦*•*'l'*■^**»* ****** 

PCB <- (PCB) - (200C); *If bit 8=1, the quajitity in 1 and AllOnes is tho byte 
'displacement + 400b. We subtract 400b bytes from PCB. 
JBq: r ^ rsh[AnOnos , 1 ] ; *form word displacement 

*i has positive WOPD displacement relative to I'CB 
JBy: pretch4[PCB,IBUF]; 

PCB <- T; 

PCF <- A110ne.s; 

•' = **•*»** Start of Pilot Code **»«***••***********»***.•..**»*«.**«**«***.** 
AllOnes <- (Zero)-l, goto[JnRot]; * 

* = **•♦*** End of Pilot Code *.i.*«*. *«»*******. **«».i.***. »»*»*♦**«*. .*.***** 



•//****•** Start of Alto Code ***"• 
AllOnes <- (Zoro)-l; 
LoadPago[Oi, goto[JSwap] ; 

'//***"*** End of Alto Code "•'■■>***■ 



*.)uiiip Word: alpha,, beta is a Z's complement displacement from tho opcode. 

* = ******• Start of Pilot Code *«**«•*****«* ***»*»*»*ft«*.!*»*»»*.1,:B:««:.«*:t*:.« 

JW: Ui <- CycleControl < Mex tDnta[IBUr | , opcodc[2il]; "got alpha * 

T <^ NoxtData[jnur]; "get beta * 

*-******* End of Pilot Coilo *•*********••****♦«*****!*»«***•**»»***»«***** 



*//******* Start of Alto Code *****■»»«***«***«********•« 
JW: lu <- GetRSpoc[127] , skip[R even], opcodo[211'l ; 

lu <-' NoxtDataflDuf]; 

r ^ Nexll)ata[lBLiF]; *get beta 

lu «- CycleControl «- NextData[IBUF] ; *get alpha 
*//******* End of Alto Code ***«.*«*****«****«.*****«**< 



T <- (lhmask[GeinSpoc[127]]) OR T; *Cycl oCont rol is in bits 0:7 

*T has signed WORD d ispl acemejrt relative to the opcode 

*=*****•* Start of Pilot Code **««*****«*»*»********** t** **«******♦.*■**** 
JWx: T <- (PCFREG) + (T); * 

AllOnes «- T «- ( FormMinus4[An0nGsl) + (T) + l , dblgoto[JWp , JWn , ALU> = 0] ; *-4H+l = T-3 
*=**•**** End of Pilot Code ********************************************* 

*//♦****** Start of Alto Code **************************** **t*«**«*******.i. 

JWx: T f- (PCFREG) + (T); * 

AllOnes <- T <- ( Al lOnes ) + ( T) , dblgoto[ JWp , JWn , ALU> = 0]; *T-1 * 

*//*•'**** End of Alto Code ***************** «"********'"********«****«*** 



JWn: T <- lOOOOOC; 'negative displacement - put in; tlio bit that the shift is about to lose 

T <^ (rshfAllOnes, 1]) or (T), goto[JBy]; 
JWp: r «- (rshiAllOnos, 1]) , goto[JBy]; 
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'"Jump Equal n , n-Z . . 9: 



stnck&-5), call [JECEVtest] , opc.o(Jo[21Z | ; 

, goto[JnEf;om]; * Load T for bypass kludgo 

stack&-l), can [JEQODtest], opcodo[2i;ri; 

FormlCAllOncs]) <■ (T), gotoiOnOCom] ; 

stack&-l), can [JtOEVtest], opcode[2l4]; 

Forn)l[AriOnes]) + (T), goloijnECom] • 

stack&-l), can [JEOODtest], opcodo[21.'i ] ; 

Eora2[An0nos]) + (T) , go to[JnOComJ ; 

stack&-l), can [JEQEVtcs t] , opcodG[216|; 

Forni2[AllOiiGs]) + (T), goto[JnECofii] ;' 

stack&-l), can [JEOODtest], opcodo[Zl7]; 

Eoini3[AriOnes]) i- (T), goto[JiiOConi] ; 

stack&-l), can [JEQEVtest], opcudc[Z2ai; 

rorm3[AnOnes]) i- (T), gotoijiiECoiii] ;' 

stack&-l), can [JEQODtost], opcodo[22 1"| ; 

Korm-ICAnOiies]) + (T), gotoijnOCom] ; 



lu <- (stackS-l) - (T); 

dblgoto[JEQ,jmp,JnRET,a1ii = 0], T *- (1 df [GETRSIH(;[1Z7J , 1 / , 1] ) ; 

JEQODtest: 

111 < (stnck&-l) - (T); 
dbIgolo[JEOjinp,JiiRET,alii = 0], T <- OC ; 

JEOjmp: 

r ♦- ( ldf[GETnSPEC[lZ7],14,3 1) i- (T), return; 

*Juinp Equal Byte 



JE02: 


T ♦- T 


JEQ3; 


T ♦ ( 
T <- ( 


JE04: 


T *- ( 
T «- ( 


JE05; 


T <- ( 
r <- ( 


JEQ6: 


T ♦ ( 
T *• ( 


JEQ7: 


T <■ ( 


JE08: 


T *- ( 
T <- ( 


JEOO: 


T <- ( 
T *- ( 


JEOEVtost; 



JEQIi: 
JEQHx: 

Ejmp: 

Ejriipx: 

Oriojinp: 
Oiiojmpx : 



T *^ (Stack&-1) ,can[stkdif|,usectask, opcodc[222;i; 
r <- 2c, db1t)Oto[Ejnip ,Onojiiip , ALIJ-O] ; 

♦ T contains length of instuction (2) 
T ♦- {NoxtData[I[)UF]) - T; 



r <- (PCFREG) + (T), goto[JRr]; 



Ui ^ NoxtData[inUF]; 



lu <- NoxtInst[lBUr],can[JnRETx]; 
stkdif: lu <■ (stack&-l) - (T), return; 
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♦Jump Hot Equal n, n-2..9: 

JNE2; T *- (stack?<-l), call [JNtEVtest], opc()<jG[Z23.1; 

T <- T, gotol'JnliCoiii]; * Load T for bypass kludge 

JNE3: T <- (stack3,-l), call [ONEODtest], opco(io[224] ; 
T <- (Fonnl[AnOnes]) + (T), gotoivJnOCom ] ; 

JNE4: T ^- (stack&-l), call [JNEEVtcstl, opcodo[2Z5j; 
T ^ (Forinl[AlIOnes;i) + (T), gotoijnECom] ; 

JNE5: T <- (stack&-l), call [JNEODtest], opcodel"2Z6 ] ; 
T ♦- (Forni2[ATI0nos ]) + (T), goto[JnOCo(ii J ; 

0NE6: T <- (stack&-l), cal) [JNEEVtost], opcodo[Z27]; 
T *■ (Forni2[AnOnos]) + (T), gotoijnECom]; 

JNE7: T ♦- (stack&-l), call [JNEODtest], opcode[230]; 
T *■ (Forin3[AnOiies.l) i- (T), go toCJiiOCom] ; 

JNE8: T <- (stack&-l), call [JNEEVtest'l, opcode[231]; 
r <■ (Forni3[AnOnos]) + (T), goto[JnECom] ; 

JNE9: T <- (stack&-l), call [JNEODtest], opcodefZSa]; 
T «- (Fonii4[AriOnesJ) + (T), gotoijiiOCom] ; 

JNEEVtost: 

1u <- (stack&-l) - (T); 

dblgoto[JNEjiiip,JNEnoJmp,alu//0], T »- ( Idf [GEri)SPEC[127] , 1/ , 1]) ; 

JNEODtest: 

lu «- (stack&-l) - (T); 
dblgoto[JNEjnip,JNEMoJmp,aUi//0], T ♦- OC ; 

JNEjiiip: 

T ♦- ( ldf[GErnSPEC[12/],14,3]) + (T), return; 

JNEiiojmp: 

lu <- NextInst[IBUF], call [JiiRETx] ; 

*Juitip Not Equal Byte 

JNEB: T *- (Slack&-1) ,call[stkdif], usectask, opco(lle[233]; 

JNEBx: T <- 2c, dblgoto[Ojinp , Enojmp , ALU//0] ; 

Ojmp: * T contains length of instuction (2) 
T f (NextData[IUUFJ) - T, cal 1 [Ejinpx]; 

Enojmp: 

lu *- NextData[IBUF],can[Onojmpx]; 
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•Jump Less D.yte - jump if (TOS-l) < TOS 

JLB: T >- {Stack&-1) ,can[stkdir],usGctask, opcodo[i!3'I") ; 

JLOx: r *■ (ffZeto) + l, cib1goto[Jl.Dpos , JLDneg , ALU>-0:| ,' f-flF.EZEr'CSULT; •" T ♦• 1 

JLQpos: T ♦■ (RZoro) i- (T) + 1, Ub1noto[0nojmp , EJinp , FlOOVFj ; * T <- 2 

JLOrieg: T ^ (RZero) + (T) + 1, Ub Igoto[Ojiiip , tnojnip, MOOVI- j ; * r <- 2 

*Jump Creator Equal D.yto 

JGED: 7*- (Stack&-1) ,can[stk(Jif'J,usectask, opco(Ja[235"| ; 

JGEIlx: T (- (RZoro)il, db lgoto[JCECpos , JGKQneg , ALU>= j , KR!:.EZFf)ESUI T; * T *- 1 

JGEGpos; T *- (RZoro) ■>■ (T) + 1, db lgoto[Enoiiiip, Ojmp, OVF'| ; * T ♦■ 2 

JGEDiieg: T <- (RZero) + (T) + 1, db1goto[Ejiiip , Onojriip, OVF] ; • * T <- 2 

•Jump Greater Byte 

JGU; Stack&-l,usoctask,canfstksw'|, opcode[236]; 

Ui *- (Stack&-2) - (T), goto[JLBx;j; 

'Jump Loss Equal Byte 

JLEIi: Stack&-l,usoctask,cal l[stksw], opcodo[237]; 
lu <- (Stack&~2) - (T), goto[JGEBx]; 

stksw: T <- stack&il, return; 

*Jump Uiisigiiod Loss Byte 

JULB: T ♦- (Stack&-1), usectask, call [stkdi r] , opcodo[240]; 

JULBx: T ♦- 2c, db Igo to[Oiiojmp , Ejmn , Ca iTy] ; 

"Jump Unsigned Creator Equal Byte 

JUCEB: r <- (Stack&-1), usectask , cal 1 [ stkdi F] , opcorfufZIl] ; 

JUGEBx: T <• 2c, db I gotofOjmp , Enojmp , Carry] ; ' [ ^ 

•Jump Unsigned Greater Byte 

JUGB: Stack&l, usectask, can[stksw], opcode[242]; 
lu «- (Stack&-2) - (T), goto[JULBxJ; 

"Jump Unsigned loss Equal Byte 

JULEB: Stack&-1, usectask, can[stksw"|, opcodo[243]; 
lu <- (Stack&-2) ■ (T), goto[JUGEBxJ; 

'"Jump Zero Equal Byte 

JZEQB: lu ♦- (Stack&-1), goto[JEOBx], opcodc[Z44]; 

*Jump Zero Not Equal Byto 

JZNEli: lu <- (Stack&-1), goto[JNEBx], opcodQ[Z45"J ; 
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*Junip Indexed BylG 

• = •****•* Start" of Pilot Codo *«*****'<«*««***»******'|'«****«***«**««.***n 

JIG: T <- Stack&-1, uscctask, cnH [stkd if] , opcode|;246 J ; 

()Oto[JIDnojin|), carry ] .Stack&t 1; 

lu »-Cyc1oCotUro1 <- NoxU)ata[IDUr]; "get alpha 

T <- NextData[IBUF]; *(|et beta 

T +- (ll)iiirtsk[GetRSpGc[l^/|]) OR T; *CycloCoirt rol is in bits 0:7 

T * (rslifStack, 1]) + (r),task; 

PFF.TC1I1[C0DF. ,RTEMP]; 

Stacka-1, dblgoto[.HDl , JIBr , Revon] ; 



Jlbl 
JIDr 



T <- ( ldf[RrEMP,0, lO;]), qoto[JWx]; 
r «- (r'liina,sk[RTi:MP;j), goto[JWx]; 



JIDnojmp: 



lu < N(!xtData[It»ur], ca 11 [J tv/nojmpx] ; 'skip alpha 
F.iul of Pilot Code .**'»'»»»***>«****«**'»**.i,. »;«**«*, 



*//*•***•" Start of Alto Codo ♦**»*'«»**************«*;»*«i 
JIB: T <- sUn implemented , ()Oto[doTrapP6'| , opcodef ZHO]; 
*//******♦ Fnd of Alto Codo *"********»»»«*"«**««*4 «*i**»i:i 



*Jump Indexed Word 

*:■-***'>■'** stai't of Pilot Codo •****•****'►*«**«***♦»***«***< 

JIW: T <- Stacks- 1, usectask, cal 1 [stkdif | , opcodc[247| ; 

()oto[ JlWnojinp , carry 1 .Stack&i-l; 

ill <- CycleCoMtrol «-' NoxtData[TnUF ] ; "(jet alplia 

T <- NoxtOata[XBUF]; *get beta 
* = '•***♦** Fnd of Pilot Code "t********** ****** »***********j 



*/■/'•***♦** Start of Alto Codo *******»********»********.i 
JIW: 111 « GotllSpec[12/ I, !ikip[R even], opcode[247"| ; 

111 « NoxtData[IBuri; 

T <- Stacks- 1; 

iisoctask, cal 1 [stkdif I ; 

(JO to[JlWnojinp, carry"] ,Stack&i I; i 

V < NoxtData[IBl)F]; *get beta 

Hi I CycloControl' <■ HGxtData[IBUF] ; *get alpha 
*//******* Fnd of Alto Code ******«*«*«***"«**«*****••=»** 



T <^ ( lhmask[CetRSpecn27]]) OR T; 
F < (Stack&-1) + (T) , task; 
PFKTCIIl[CODF,RTEMP]; 
T <- liTEMP, goto[JWx|; 



*CycleCoii t rol is in bits 0:7 



JFWnojmp: 

lu <- HoxtDatal IBUFJ; *skip alpha 
JIWiiojiiipx : 

Stack&-1; "adjust the stack 

lu <- NextData[inUF], call[JnRET]; *skip beta 
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*ADO 

0ADD: T <- Stack&-1, opcode[250]i 

Adclx: lu ♦ Mextlnstfinuf J; ' 

Stack <- (Stack) + (T), NIRet; 

*SUD 

OSUB: T *- Stack&-1, opcodo[Zril] ; 

Subx; lu *- Noxtlns tflBiif] ; 

Stack *- (Stack) - (T), Nlllct; 

♦Multiply - The Ivltjli half of the 32-bit product is left above the top of tt 

* product low in Stack, hi in RTEMPl 

* mul t ipl ipl icand Iovm in RTEMP, hi in xfMX 

* null tipl ion in xf MY 

0MUL: T <- RTtMPl <- Oc, opcode[2Q2J; 

SALUF <- r, call[PopToT"l; * Saluf " is a no op 

xfMY «- T, UseCTask, cal 1[PopTor J ; 

Stack&il <^- Oc, skipraUiryO]; * tosts xfMY ♦- T 

Stack&+1 <- Oc, goto[indPop]; 
PTEMP <- T, cal I [.+!]; ■ 

XfMY <- (psh[xfMY, 1]) salufop (T), skip[ reven] ; * top of loop! 
Stack <- (Stack) + (T), dblqo to|'niuiDono , MULa, al!) = Oj; 
MIJLb: r <- RTEMP <- (RITMP) + (T), E leezcRssul t , sk1p[r> = 1; 
RTEHPl <- (REEHPl) + I, UsoCoUt AsC in , go to[iiuil Long ] ; 
RTEMPl > (RTEHPl) + 1, UsoCoutAsC in , return; 

MULa: FreezeResuU, goto[MULb]; 

mul Long: 

xTHX «- Ic, can[.n;i; 

lu <- (xfMY) saiufop (T), skip[reven]; * top of loop2 

Stack t- (Stack) + (T); 
RTEHPl <- (RTEMPl) t 1, UseCoutAsC in ; 
RTEMP *- (RTEMP) >■('()■, 
T <- xfMX, FroezoRosult ; 
xfMX «- (XfMX) I (T) H 1, UseCoutAsCin; 
XfMY t rsh|xfMY,lJ, skip[revoM]; 

T <- RTEMPl < (RTEMPl) + (T), dblgoto[nidPush , MULc, alu = 0]; 
T <- RTEMP, return; 

MULc: T <- RTEMP, return; 

inulDoiie: T ^ (RTEMPl) ^ 1, UseCoutAsCin, go to[mdPush] ; 

mdPush: Stack&H <■ T, goto[iiidPop] ; 
mdPop: Stack&-1, gotoj;P6Tai 1] ; 

I'opToT: T <- Stack&-1, KroezeResul t , return; 

*Oouble 

DBL: T <- lsh[Stack& 1,1], 0pcodo[2531; 

PushTPO: lu <- N(;xtInst[IRUF]; 

Stack&H «• T, NIRET; 
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*r)ivtdo - (T0S-1)/T0S. Single word dividend, single vrord divisor, no check for overflow. 
*rho remaindor Is left abovo tho stack. 
ODIV: MNBIl <- Stack&-1, opcodo[254] ; 
T <- Oc, goto[LD:[Vx;i; 

*Long Divido - (TOS -1) , , (TOS-?)/TOS. Double word dividend, single word divisor, no check for overflow. 
*The remaindor is left above the stack. 

♦ dividend low in Stack; hi in I1TF.MP 

• divisor in T 

* quotient appears in Stack; remainder in RTEMI^ 
QLDIV: MNBR +■ Stack&-1, callEPopToT], opcode[;?55l; 
IDIVx: RTEMC <r T, LoadPage[opPageO] ; 

r *- MNBR, gotop[.+l|; 

onpngo[opPageO] ; 

In <- (iVrFMP) - (T), goto[zerodivi{la, a1u = 0]; 

goto| di videcheck, carry]; 

nop; 

rent <• 17c, can[divStart]; 

lu <- RTEMPl; ♦ top of loop 

RTEHP <■ (RTEMP) - (T), skip[alu=0]; • subtract divisor 

Stack <■ ( lsh[Stack, 1]) + ]., dblyoto[di vsl , divsO, r<0]; • <| bit 1 
skip[nocarry"| ; 

Stack «- (1sh[Stack,l]) > 1, dblgoto[di vsl , divsO, r<0'|; • (| bit 1 
RTEMP <- (RTEMP) + (T); • add back divisor 
divStart: 

Stack <- lsh[Stack, 1], dblyoto[divsl , divsO, r<0]; * q bit 

divsl: rent <- (rent) ■ 1, goto[divDonol, r<0]; * sliift 1 

RPEHP ♦" (lsli[RTEHP,l]) i- 1, dbl go to[ d i vtis 1 , divhsO, r<0]; 

divsO: rent ♦- (rent) - 1, goto[divl)one2 , r<0]; * shift 

RIEMP «" lsh[RTEMP,l], dblgoto[divhsl, divhsO, r<0]; 

divlisl: RTEMPl <- Ic, return; * next quotient bit known to be 1 
divhsO: RTEMPl <- Oc, return; " next quotient bit unknown 

divDonol: T <- RTEMP, l.oadPago[opPage?'l , goto[divPush] ; 

divDono2: T ^ RTEMP, LoadPagc[opPageZ j , goto[(' l^Push] ; 

divPush: Stack&+1 *- T, gntop[mdPop] ; 

dividocheck: T <- sDi videCheck, goto[doTrapP4] ; 

zerodivide; T <- sZeroDi v isor, goto[doTrapP4J ; 

onpago[opPago2] ; 
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"'Ncgato 

QNtG: T ♦• Stack&-1, 0|)code[Z66] ; 

T <- (Zero) - (I), goto[PushTP6] ; 

•Tnc remont 

0IMC: T <• (Stack&-1) + 1, goto[PushTPlj] , Opcocle[257] ; 

•And 

@AND: T <- Stack&-1, Opcodo[260]; 

Stack *■ (Stack) and (T), got.o[P6Ta i 1 ]; 

*0R 

BOR: T *■ Stack8<-l,.Opcode[261]; 

Stack «- (Stack) or (T), goto[P6Tan]; 

■»XOR 

0XOR: T <- Stack&-1, Opcode[26Z]; 

Stack <- (Stack) xor (T), goto[P6Tai 1 ]; 

♦Shirt 

eSIIIFT: r <- Stack&-1, Opcodof263]; 

dblgoto[Sliiftr)iglrt,Slilf tLeft,ALU<0 I , RTEMP <-T ; 

ShiftRight: RTEMP <- (RTEMP) ^ (17C); 

db 1 go to[SIIFl,SHF2, Carry]; 
SHr2: goto[P6fai I] .Stack «- Zero; *shirt count > 17 , uso zero 

SIIFl: CyclGControl <• RTEMP; 

goto[P6Tairj, Stack <^ RF[Stack3; 

ShirtLeft: Ui <• (RTEMP) and not (17C); 

dblgoto[SHF3,SIIF'l,AHJ-0], T <- (RTEMP) ; 
SIIFl: goto[P6Tai r| , Stack «- Zero ; *shift count > 17 , uso zero 

*T has positive count. form 0,, -count, then uso WFA 
SIIF3: RTEMP <- (Zoro) - (T) - 1 ; 

RTEMP <- (RTEMP) and (17C) ; 

CycleControl <^ RTEMP ; 

goto[P6Tair|, Stack «- WFA[Stackj; 
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*Doublo Add 

@DADD: MNUR <- Stack&-1, cari[GR tTDccSt k^l , opcodt;[2i3'1 J ; 'point to Is!) uf top doubloword 

Stack '- (Stack) t- (T), * add low bits 

Stack&+1, goto[clAddC, carry]; 

T <- M^JR|■(, gotofAddx]; * pick up liigh bits of top ckiubluword 
dAddC: T *- (MNRR) ^ 1, goto[Add>']; ■'' p ick' up high bits of top doublGword 

*Doub1e Subtract 

QDSUU: HMBR <• Stack&-1, can[GetTDecStk2] , opcodG[2Gr)] ; *point to isb of top doubieword 

Stack f-- (Stack) - (T); * subtract low bits 

Stack&^l, tjotoidSubC, MoCarry]; ■•point to nisb of second doubieword 

T <- MNf3R, goto[Subx]; *rciiiomber insb of top <loubioword (I'OS) 
dSubC: T <- (MNBR)"^ 1, gotoisubx]; 

0otrDocStk2; T <- (Stackgi-?), return; "grab it, point to Isb of sacond doubieword 

•Double Signed Coniparo: 

"If (TOS-2), ,(T0S-3) < TOS, ,(T0S-1) , push -1 

"If (TOS-2), ,(T0S-3) = TOS, , (TOS-1), push 

*If (rOS-2), ,(T0S-3) > TOS, , (TOS-1), push 1 

'"Comparisons are signed 

DCOMP: T < (Stack&-2) i (100000c), Opcodo[2G6]; 

Stack ♦- (Stack) + (100000c), goto[DUGOHPy]; 

"Double Compare: 

*If (TOS-2), ,(T0S-3) < TOS, , (TOS-1), push -1 

*Tr (TOS-2), ,(T0S-3) = TOS, , (TOS-1) , push 

*If (TOS-2) , ,(T0S-3) > TOS, , (TOS-1), push 1 

•Comparisons are unsigned 

DUCOMP: T «• Stack&-2, Opcode[2G7]; 

DUCOMPy: 

lu <- (Stack&tl) - (T); '"Compare iiisb's, point at Isb of high doubieword 
goto[DUCompareLownits, ALU-O], T <- Stack&-2, ( RUE ZF. RESULT; *grab Isb of top doubieword, 

'"point at Isb of second doubieword 

DUCompx: dblgoto[UUConipi , DllCompG , NoCarry]; 

DUCompL: T «- (RZoro) - 1, goto[DUCompEc]uar|; 

DUCompG: T *- (RZoro) i 1, goto[DUCompC(|uar]; 

DUCompareLowBits: T <- (Stack) - (T); 

goto[DUCompE(|uai , ALU-0], PREEZERESULT; 
dblgoto[DUCompL, DUCompG, NoCarry]; 

DUCompEriiial: Stack <- T, goto[P6Tail ] ; 

■•ADDOl - on DO, equivalent to ADD 

ADDOl: goto[Addx], T <- Stack&-1, Opcodo[270]; 

•Unused opcodes on page 6 

T * sUriiiirp lemon ted , yoto| do fr apPG | , opco(le[2/r); 

T «- sUn implemonted , gotoidoTrapPG j , opcode[2/2|; 

T < sUn implofiioii ted , gotofdo rrapPO] , opcodG[?73J; 

1 ♦- sUn implemented , gotof doTrapPG] , opcodo[274') ; 

T < sUnimp lemonted , go to[doTra|)P6"| , opcodo[27f> ] ; 

T <■ sUn implemented , golo[doTrapP6] , opcodo[276|; 

T *- sUn implemonted , goto[doTrapP6] , opcodo[277"]; 
doTrapPG: 

LoadPago[opPage.3J ; 

gotop[kfcr]; 



END; 
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iiisc;rt[iJ01ang]; 

N0MIDASIHIT;I.ANCVEfiS10N;MULTDIB; 
iiisort[Glol)aH)ers]i 
TITLEfmrj; 

* niodif led by Johnsson, October 9, 1979 4:14 PM, RFSL stack cri'or 

* modified by Sandman, Soptembor 18, 19/9 10:34 AM, AR 1708 I.INKB 

* moriifiod by Chang, September 7, 1979 4:24 PM, move tnilKnd to payo 

* modified by Johnsson, June 28, 1979 10:11 AM 

* modiriod by Chang, May 27, 1979 2:09 MM, nail down InitEnd 

* niodifiod by Sandman, April 5, 1979 2:43 PM 

* End of initialization and start of emulators 

MC[Pilotnunn1ng, 202]; 
HCf;Altonunning, 214]"; 
MC[AiloMDS, 0]; 
MCiPiiotHDS, 76]; 

ONPAGE[TiiiierPage]; 
In itEnd : 
*//***♦•*• Start of Alto Codo «*•**•*«•«**«****«♦*■«*»***«**********.>■»****» 

NWW <• lOOOOOc, at[InitEMdLoc]; 

SMAh «- f <- Oc; 

Carry «- T, LoudPago[0]; 

r ^ (AUoRunning)', callp[PNIP]; * 

PFetchl[Nova , xfDrkOytn, 1]; " use xfBrkDyte as temp 

r < DMA <- Oc; 

iu «- xfDrkByte; 

xfMX «■ 4c, goto[MesaBoot , alu = 0]; 

PCBh <■ T, 1oadpa()o[noPago]; 

T *■ Ic, gotop[JMP]; 
«//******* End of Alto Codo f ************************** ******************** 
..,*:«*»*,* Stan of Pilot Code ******»*•*****«•«***»****•***********•»..♦*♦ 

EoadPage[0], at[ln itEndLoc]; 

I < (Pi lotRunning) , cnllp[PNIP]; * 

•■=•*'***** End of Pilot Code ***^i'**«**»**********»'«**** »•*****«,*** ******»»* 
HesaDoot : 
*-***•*** Start of Pilot Code * »*«*****«*****'»«*«**** ***««*«*»****«*****« 

T <- GLOBALhI < PiiotMDS; * 

XfMX <- lOOOc; 

XfMX <- (XfMX) or (376c) ; * 

*=******* End of Pilot Codo ****«*•****«*****«•*****«*»******«****♦***«*« 
*//******* Start of AUo Code *«*******«***•***■»*****■>«***«**«*******»««** 

T «■ GLOBAL hi «- Ai toMDS; * 

*//«.»*..* t;iid of Alto Codo ***«***«**********»*'s*»**»******»»«. «*****»*** 

T < GLOBALhi <- ( 1 sli[GLOBALhi , 10]) or (T); 

xfWDC «- Ic; 

NWW <- Oc; 

MOS <- Oc; 

MOShi <- T; 

I ickCount <- 3c; 

xfXTSRog <- Oc; 

LOCALhi <- T, LoadPage[opPago3] ; 

MemStat <- (Normal), gotop[MStart] ; 

•Common tail and refill for instructions on page 4 

0NPAGE[;4]; 
MosaRorilll: gotop[MesaRef ill ] , Pfetch4[PCB , IBUf , 4] , at[2377]; 

MosaBBret : 

*//•****** Start of Alto Code «*«**•*■»*******«***«»****«********•««*«»**«« 
Ui <- GetRSpec[127]. skip[R even]; * 

lu «- NextData[ IBu'f]; * 

goto[P4Tan]; * 

*//******* End of Alto Code ************«***«■•"*******♦***«************•*** 

P4fail: Ui <• NextInst[IBUr]; "common tail for page 4 ~ MUSf READ R to interlock 
P4Tailx: NIRET; 

'NOP - should not get here unless we need an interrupt 
0NOP: T <- (R7oro") + l, goto[NOPint , IntPending] , opcode[0]; 

gotorP4Tail]; 
NOPint; RTEMP *- f, loadpage[7]; * RTEMP ♦- (PC backup if stopping) 

T <• (GetRSpec[103]) xor (377c), call p[MIPendx] ; * T <- J,tkp xor 377 

f < (PCFreg) - 1; 

RIEMP ♦• f; 

PCF <- RTEMP, goto[NOPpcfneg,alu<0]; 

goto[P4Taii] ; *wa1t one instruction for PCF*- to take 
NOPpcfneg: 

PCB <- (PCB) - (4c), goto[P4Tail]; 

* Monitor iiistructions in xPR.mc 
P4Ret: i"- :';PN; 



Page 
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'Load Local n, n=0-7 



I 1,0 
LLl 
L.L2 
IL3 
11.4 
l.i 5 
LL6 
LL7 



PTetctil [LOCAL, Stack, 4], goto[l>4Tan ] , o,ocode[101 
Pfetch][l.0CAL,Stack,5|, (ioto[l'4Tai ij , opcodo[ll"] 
Pfetchl[ LOCAL, Stack, 6], qoto[P4Tan ] , opcotlo[l21 
Pfotchl[LOCAL, Stack, 7], gotol P4Ta 11 ] , o|)coile[l3l 
Pfotch][LOCAL, Stack, 10], goto[P4 Fa LI 1 , opGodG[14] 
P1'otchl[L0CAL, Stack, 11], goto[P4Tni 1 ] , opcodoilb] 
P fBtclUJ; LOCAL, St ack,l;>], gotoiP4Ta i 1], opcodG|M6'| 
PfetchlfLOCAL, Stack, 13], goto[P4lai 1 "] , opcoderi/] 



*Lond Local Byto 

LLR: r *- NoxtData[IDUF], opcodc[20]; 

Pfotchl[ LOCAL, Stack], goto[P4Ta LI ] ; 

'load Local Double Ryto 

LLDI3: T <- NextData[IBUF] , opcode[21]; 

LLDBl: Pfetch2[L0CAL, Stack], cari[FQT]; 

*If FQT roturns, guadOVF has occurred. Fetch the first word into RFEMP 

CALL[IncTr], P fete hi [ LOCAL, PTFMP] ; 

Pretchl[LOCAL, Stack], gotoiooubleReadTai 1 ]; 

*ny this time, we kiiov; that the first fetch has not faulted. If the second one faults, 
"the fourth instruction after the Pfotch will he aborted. Tf we wait to update the first 
*word, we don't have to tell the fault handler anytlrlng about the state of the memory. 
Doubl oRoadTail : nop; 

Stack&-1; *Adjust the stackpoinler to point to the first word of the pair 
DoubleReadTailx: T «- RTEMP; 

Stack <- T; "deposit the first word 

lu *■ NextInst[TBUF]; 

Stack&+1, NIRET; *final stkp adjust 



IncTl 
FQT: 



T <- (Zero) + (T) < 1, return; * increment T by 1 



goto[.+2, QuadOVr]; 
lu ^ Nexllnst[iriUF], call [P4rai Ix] ; 

Stack&-1, return; '"adjust the stackpointer Riodifiod by the failed fetch to point 
one below the SECOND word to be fetched. 



"Store Local n, n-0-7 



SLO 
SH 
SL2 
SL3 
SL4 
SIS 
SL6 
SL7 



PStorol[ LOCAL, Stack, 4], 
PStorel[;LOCAL,Stack,S], 
PStorel[LOCAL, Stack, 61, 
PStorcl[LOCAL, Stack, 7], 
PStorel[LOCAL, Stack, 10] 
PS to re I [LOCAL, Stack, 11] 
PS to re 1[ LOCAL, Stack, 12] 
PStorel[LOCAL, Stack, 13] 



goto[P4Ta1l], Opcode[22]; 

goto[P4fail], 0pcode[23]; 

gotoiP4Tan], 0pcode[24]; 

goto[P4Tai rj, Opcodetzo]; 
goto[P4Tai"l], Opcode[Zf)i 
goLojlMiail], Opcodo[2/] 
goto[P4Tail], Opcodoi30] 
gnto[P4Tail], Opcodo[3l] 



*Store Local Byte 

SLU: T <■ NextData[lBUF], opcOde[32]; 

PStorel[IOCAL, Stack], goto[P4 Fa i I J ; 
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•Put Local n, n = U-3. F.qulvalont to SLn.Push 
PLO: PStore:l[1.0CAL,Stack,'T],floto[PutraiT|,opco(lo[33] 

PLl: PStorGl[L0CAL,Stack,0],goto[PutTair],opcod3[34] 

PL2; PSlorel[l.0CAL,Stack,6],g()lo[PiitTai l.l,opcO(Jc[35] 

PL3: PS to rG;l[ LOCAL, Stack, 7] , goto[Pu tTai 1] ,opcodt;[36;i 

* increniGilt stkp by hand so not caught by intorlock 
PutTail : 

T ♦- (GotRSpec[L031) xor (377c); 

RToinp <- (Zero) + T + 1; 

Stkp «- RTemp, GOto[P'1Tail ] ; 



•Load Global n, n=0-7 



LOO 
LGl 
LG2 
LG3 
I.G4 
I.G5 
LG6 
LG7 



Pfotchl[GL0DAL,Stack,3], goto[P4TaiT 
Pfetchl|GLOnAL, Stack, ni, qoto[P4Tai \ 
PI'etchl[GL0r)AL,Stack,5'|, goto[P4Tai 1 
Pf(jlchl[GL0UAL,Stack,6 1, gotof P4Tai 1 
Pfetchl[GL0BAL,Stack,7i, goto[P4Tair 
P fete hi [GLOBAL, Stack, 10], goto[P4Tai1] 
Pfotchl[GLODAL, Stack, U], gotu[P1Tai I ] 



opcojdefS?] 
opcoHo[40] 
op code [41] 
opco<io[42] 
opco((o[i43 j 
()pcodo[44] 
opcadoi45] 



pre tchl[GLOBAL, Stack, 12], goto[P4ra1l], opcode [46] 



*Load Global Byte 

LGB: T <- NextOata[IBUF], opcode[47]; 

Pretchl[GLOBAL, Stack], goto[P4Tai 1 ] ; 

*Load Global Double Byto 
LGDB; r < NoxtData[IBUF], opcodo[50] ; 
LGDBl: Pretch2[GL0BAL, Stack], cari[rOT]; 
•If Ffjl returns, quadOVL occurred. See LLDB. 

Cal l[Tncr:l], Protchl[GLOBAL, Rl EMP] ; 

P fo t c hl[G LOB AL, Stack], go to[DoubloRnadTa-n ] ; 

•Store G lobal n , n = 0-7 

SGO 

SGI 

SG2 

SG3 



PS to rol [GLOBAL, Stack, 3], goto[P'lTai 1 ] , Opcor!c[51] 

PStorel[GL0BAL,Stack,4 I, goto[P4Tai 1] , 0pcodQ[5?] 

PStorol[GLOBAL, Stack, 0], goto[P4Tan], Opcodei53] 

PStorGl[GL0RAL,Stack,61, goto[P4Ta i 1 j, Opcode[G4] 



•Store Global Byto 

SGB: r *- NextData[IBUF], opcodG[!i5]; 

PS to rol[G LOBAL, Stack], goto[P4Tai 1 ] ; 

*Load Immediate n, n=0-6 

LIO: lu <- NoxtInst[IBUF], Opcode[56]; 
Stack&Fl *- Oc, NXRET; 

goto[PushT], 0pcode[57] 

gotoiPushl], Opcode[60i 

goto[PushT], Opcode[6l] 

goto[PushTJ, Opcode[62] 

goto[Pu.shT], OpcodefeS] 

goto[Pusbl], Opcode[64] 

'Load Immediate Negative 1. 

LINl: T <~ (Zoro)l, goto[PushT], Opcode[65 1 

'Load Immediate Negative Infinity 

LINT: I <- 100000c, goto[PushT], Opcode[06]; 

*Load tmmodiato Byte 

LIB: T <- NoxtData[IBUF], Opcode[67]; 
PushT: lu <- NoxtInst[IBUF]; 
Stack&+1 <- T, NIRF.T; 



LIl 


r 


- Ic 


LI2 


T «- 2c 


LI 3 


T 


- 3c 


LI 4 


T < 


- 4c 


LI6 


I < 


- 5c 


U6 


r • 


- 6c 



*Load Immediate Word 

* = **"*"** Start of Pilot Code «*******»*********.»«*m*.i 
LIW: Iti <- CycleControl <- NfixtData[IBUF] , Opcode[;70]; 

T <- NoxtData[IBUF]; 

* = ******* End of Pilot Code ***** *«******««*»*****.i:*«*» 

•//**"**** Start of Alto Code *************************** 
LIW: lu *- GetRSpec[127], skip[R even], Opcode[70]; 

lu < NextData[IBufi; 

T *■ NextData[IBUF]- 

hi <- CycleControl <- NextData[IBUF]; 
*//♦****** End of Alto Code **«********«***♦*****«**«»•« 



T *- (lhmask[GetRSpec[127]]) OR T, goto[PushV]; 

*Load Immediate Negative Byte 
LINB: T <- 177400c, opcode[71]; 

r <- NextData[IBur] OR T, cal1[PushT]; 
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*Loca1 Address Byte - sinco MDS is 64K aligned, tha 'lov/ half oF the bnso register Is 1. 

lADKll: T «• LOCAL, Opcodo[;2]; 

lADIinx: T <- (NextDatn[:iBUF]) + (T), can[PusliT]; 



'Global Address By to 

GADI!B: T <- GLOBAL, floto[LADnnx] 



Opcode[/3]; 



*unuaefl opcodes on page 4 

T <- sUnimp leiiionted , go to[doTrapP4 
T <• sUn impleiiioii tod , gotofdo T rapP-l 
T «- sUii impleiiieiited, ijoto[doTrnpP4 
T •- sUnimplementod , goto[doTrapP'l 

doTrapP4: 

LoadPagcf opPage3] ; 
gotop|"kf cr]; 



opcode[74] 
opcodof /fi] 
opcoclo[ 76] 
opcode[77 I 
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^Common tall mid refill for instructions on page 5 

0nPago[5l; 
MesaRefiilO: yotOi)[Mesafief i 11 ) , Pf etch4[PCD , TBUr , 4] , at[2/"/7]; 
POTail; Ui <- Hex tInst[IRUI']; 
POTailx; HI RET; 



*Rend n, n-0-4 



T <- (Stack&-1) + (Oc) 

T <- (Stack&-1) + (Ic) 

T «- (Stack&-t) + (2c) 

T «- (Stack&-1) + (3c) 

T <- (Stack&-1) + (4c) 



gotof RoadTai 1 ] 
gotoilieadTai I | 
goto[Rend iai 1 ] 
go to[ReadTa i 1 ] 
fjotofRoadfai I ] 



Opcodc5[100 i 
OpcodrtilOlj 
Opcod(i('.l02"] 
Opcodo[10n'l 
0pcodori04| 



•Read Byte 

0RB; T <- NoxtDuta[IUUF"l, 0pcodQ[105]; 

T <• (Stack&-i) >• "(T), goto[RoadTnir]; 



ReadTail: 



Pfetclil[MDS,Stnck_'l,goto[P5Tan]; 



*Write n, n=0-Z 

WO: T - (Stack&-1) + (Oc), (joto[Wr 1 teTail ] , Opcodo[IOG] 

Wl: T <- (Stack&-1) + (tc), go to[WriteTai I ] , Opcodo[107] 

W2: T ♦- (Stack8i-1) > (2c), go to[WritoTai I ] , Opcodo[110] 

*Writc Byte 

m-. T <- IJextnata[ TDUF], OpcodeL'lll] ; 

r *- (Stack&-i) + (T), goto[WriteTan]; 



V/ritoTai 1 : 



PStorol[HDS, Stack], goto[P5 Ta i 1 J ; 



*Road Field 

♦ = ******• Start of Pilot Code * •************«**»* ***«**«**»»»*** **' 
QRF: T <- NcxtDatal ;i:cUF], Opcodo[ 112] ; "get offset 

III <- CycloControl «- NextData[ IBUF] ; 'get field descriptor 

* = •*•"*** End of Pilot Code s******************* * «^»*****»*'n«**.i.**.». 

'//******* Start of Alto Code ***'i'*«******«*«t**'i'**«**'s****««»'»*«**' 
AlignFieid: 

usectask, gotop[AFG]; 

oiipage[6] ; 
AF6: T «- apc&apctaskj 

RTEMP <• T; 

111 <- GotRSpoc[1271, skip[R even]; 

III <- NextData[IBu'ri; 
I ill <- CycieControl <- MoxtData[IBUF] ; 'get field descriptor 

T < NoxtData[IBIJF]; *get offset 

apc&apctask «- RTFMP; 

return; 

onpa(je[o:| 
@RF: loadpagc[6], call [A1 igiiField] , 0pcode[lt2]; 

*//•****** End of Alto Code **»**»*****«****■«•«*** *****«*«^.*******^f: 

RFy: T « (Stack&-1) + (T), cari[FetchMDSToStack] ; "add pointer, 

lu <- NextInst[tBLIF]; 
RFx: Stack <- RF[Stack] , " MIRET; *do the work on tlio stack 

FetchMDSToStack: Pfetclil[MDS, Stack] , RETURN ; 

"Write Field 

*■--****•*• Start of Pilot Code ***** «*»«********:»********* ********«■ 

WF: T «- NcxtData[[BUF], Opcod6[113]; *got offset 

lu <- CycleControl ^ NGxtDuta[IBUF]; *get field descriptor 
♦=**•***• End of Pilot Code *«***«*******»•*******••*«*****«*•****■ 



*//******* Start of Alto Code *****•♦******■»*****««•' 
WF: loadpage[6], call [Al igiiField] , 0pcode[113]; 
*//"*"■**** Fnd of Alto Code **•*»***«***♦**•********' 



Wfz: T <- (Stack&-1) + (T), cal l[FetctiMDSToRTFMP] ; *add pointer 

RTEMPl <- T; *save pointer 

T ^ WFA[Stack&-l]; *f1eld to ho inserted 
WFy: RTEMP <- (UFB[RTEMP]) or (T); *do insert 
WFx: T *- RTEMPl, goto[WSOx]; 



fetch 



FetchMDSToRTEMP: Pfetcht[MDS, RTEMP] ; 
P5Rct: RETURN; *allow time for T to be written 
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*i!aacl Double BytQ 

RDO; T *■ NoxtDataCIBUrL Opcocio[ IM] ; 

T <- (Stack&-^) I- (T), LoadPage[4], goto[Doublel!rjad.l ; 

*(ioad Doublo 

KIJO: T <- Stack&-1, LoadPag()[4] , 0()cc,de[ llfi] ; 

Doubleliead: PfetcliZfHOS .Stack] , cal 1 p[FQT;j ; 

•If FQT returns, quadOVF has occurred. Soe LLDD. 

Cari[IiicT:lp5.1, Pf etchl[MDS, HTtHP] ; 

Pretclr.l[MD.S, Stack]; 
DoubloRQadx: LoadPagG[4] ; 

Stack&-1, gotop[Doub1orieadTa ilx]; 

Iiu;S2Tl: Stack&^2; ♦Increment stkp by 7., and... 

IncTlpS: T <- (Zero) > (T) h 1, RETUDH; * in c reliant T by 1 

•Writo Double Byte 

WDB: T ♦- NextData[inUFL opcodeCllG]; 

T <- (Stacka- I) + (T); 

OoublGWrite; PStore2[MDS, Stack.] , can[SOT]; 
■'ir SQT returns, do two single stores 

PSto rc)l[MDS, Stack]/ call [IncSZTl]; 

PStor-el[MDS, Stack], goto[WSDBx] ; " 

*Write Doublo 

WDO: T <■ Stack&-1, goto[Doubl6Write] , opcodo[117]; 

SQT: goto[.+2, quadOVF]; 

1u ♦- NGXtlristCIIlUF], callfPSTailx]; 

Stack&+1, return; *set stkp to point to the first word to be stored 

'Road String 

RSTR: T ♦- CNextData[IRUF], call [RWSTRx] , opcode[t20]; »get alpha 

Ui < RTEMPl, dblyoto[RSTRLef t, RSTRRight, Roven], l,oadPage[4] ; 
RSTRLoft: T <- rsh[RTLMP, 10] , gotop[Pushr] ; 
RSTRRight; T ^ rhMiask[RTEMP] , golop[PushT] ; 

"Writo String 

WSTR: T <- CNcxtData[II)UF], can[RWSTRx], opcode[12t]; 

RFEMPl «- T, dblgotoiwSTRLeft, WSTRRight, Revcri]; *test low bit of RTENiPl, save pointer 
WSTRLoft: T *- 1 sh[Stack&-l , 10]; 

RTEMP ^ (rhiiiask[RrEMP]) or (T), goto[WFx]; 
WSTRRight: T <• rhmask[Stack&- 1] ; 

RTEMP <- (1hinask[RrEMP]) or (T), goto[WFx]; 

RWSTRx: T <- (Stack&-1) h (T); 'string index 
RTEMPl *- T; 

T *- (Stack&l) ; *pointer 
T * (rsh[RTtMPl,l I) h (T), go to[FetchMDSToRTEMP] ; 
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*Roa<l Iirdexfld by Local Pair 

RXLP: T <- MextData[IBUF], opcodo[ 122"] ; 

RTF.MPl *- T, call[I.PPoinler]; 

T ♦■ (Stacka-l) + (T), goto[RILPx]; 

*Writo InclG;<Gd by Local Pair 

WXLP: T <- NextD,vta[IBUr], opcode[123]; 

RTF.MPl *- T, cari[LPPointei-]; 

T ^ (Stack&-1) ^ (T), yoto[WILP:<] ; 

*Read Indirect Local Pair 

RILP: T «■ MextDaU[IRUF], opcodc[124]; 

RTKMPl *- T, cari[LPPoiiitGr]; 
RILPx: T ♦- (RTEMP) + (T), golo[ReadTan] ; 

♦Read Indirect Global Pair 

RIGP: T < NaxtDala[IBUF], opcode[125]; 

RlEMPl < T, can[GPPointeri; 
RIGPx: T ^ (RTF.MP) + (I), goto[ReadTan ] ; 

'Write Indirect Local Pair 

WILP: T <- NoxlData[lBUF], opcode[12G]; 

RrtMPl <- r, canCLPPoiiitor'l; 
WILPx: T <- (RTEMP) ^ (T), goto[WrHoTai 1 ] ; 

*Read Indirect Local 

RIIO: PrelclU[LOCAL, RTEMP, 1], cari[P5Ret], opcodo[127i; 
T <- RTEMP, goto[ReadTaii;j; 

LPPointer: T <- 4c; *offSGt of local 

T <- (1df[RTEMPl, 10, 4]) + (T) ; 

PfetchlfllOCAL, RTEMP j; 
LPPointcrx: T ♦■ IdfCRTEMPl, 14, 4], return; 

GPPointer: T ^ 3c; "offset of global 

T «- (ldf[RTEMPl, 10, 4J) ^ (T); 
Pfetclil[GLO[iAL, RTEMP], goto[LPPointorx]; 
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*Wrrte Swappod 

V/SO: T t- (Stack&-1), call [WSPoin ttip] , opcoi.le[ 130] ; 'T <■• data 

V/SOx; PStorGl[MDS, RTtMC], fjOto[P5Ta il] ; 

*'i7rite Swapped H.yte 

WSB: T <- StackBi-1, call [WSPoiiUer], opcode[131]i 

WSUx: T «• (MaxlData[i:BUr;|) ^ (T), can[WSOxj; 

WSPointer: RTF.MP <- T; 

r < Stack&-1, rotui-n; *T ♦■ pointer 

*Writo Swapped Field 

♦=*•*•*•* Start of Pilot Code «*•«*****«♦♦■««*«*«*««*****•*>*»•*« 

WSF: Slacks,-!, opcofl(3[132] ; 

T <■ NextData[TRUFi; 

1u <- CycleControl' < Mf;xtData[IBUF] ; 
* = **«*•*• Fiid of Pilot Code ****«****«*«**««****»**»**«»**'«***'i 

t//******* start of Aito Code ■«*•*****«***«*«»* >*^» ******* ***»♦»*'! 
V,'SF: Stack&-1, loadpaga[G], can [AI ignFieldJ , Opcode[132]; 
'//*••*•*• End of Alto Codo *■ ».*••*•***«******•***«********»** j 



T »- (Stack&+1) + (T), cari[FotcliHIXSToriTl-MP]; n <- pointer 

IVfEMPl <- T; 'save pointer 

T t- WFA[Stack&-2], goto[WFy]; 

*Writo Swapped Double Byte 

WSDB: T <- NcxtData[I!5UF], opcodo[133]; 

Stacks-?; 

( <- (Stack&+2) + (T); *T i- pointer i alpha 

Pstore2[MDS, Stack]; 

OotoL.i-?, quadOVF]; 
WSDBx: stack&-l, go to[P6 Ta 11 ] ; *back up stkp over pointer 
*Do two single stores 

Sta'ck&H; 

Pstorel[MDS, stack], cal 1 [IncS2Tl] ; 

Pstorel[MDS, stack]; 

Stack&-2, goto[P5rail]; *back up stkp over Isb(data) and pointer 

*l?ead Field Code 

* = ******• Start of Pilot Code *>*«*************»********«******»'********•' 

RFC; T <- Nextl)ata[IBUf ], 0pcode[134]; *got offset " 

lu <- CycleControl < Ni3xtData[IUUF] ; *get field descriptor " 

*=♦****•* Fiid of Pilot Code *•*••**«•**«*♦**********••****• **«*«*«»*****» 

*//»•**•** Start of Alto Code **»**»*•****** *********************** *»*»•*' 
RFC; loadpage[6], cal 1 [Al igiiFiel d] , 0pcode[134]; " 

*//****«** End of Alto Code «****»**»*******«*»•«*»**•*********** »***.*« 

f <- (Stack&-1) + (T), calif FetchCOOEToStack]; 
lu '- NcxtlnstI IBUF], call[KFx]; 

FetchCODFToStack: Pfetclil[CODE .Stack] , return; 

*Read Field Stack 

RFS: r <- (Stack&-1), cal 1 [StackFD] , opcode[135]; 

*//******•* Start of Alto Code **************************************** *»*■! 

lu <- CetRSpec[127], skip[Reven]; 

1u <- NextData[IBuf]; 
*//******* End of Alto Code ************************************************ 



CycleControl *■ RTEMP, goto[RFy]; 

*Writo Field Stack 

WFS; T ^ Stack&-1, cal 1 [StackFD] , opcode[136]; 

*//*«***** Start of Alto Code *•*****«**•****»***«**•*• 

lu <- GotRSpectl27], skip[Roven]; 

lu <- NextData[IDuri; 
*//***•*** End of Alto Code *************************** 

CycleControl <- RTEMP, goto[WFz]; 

*Displaceinent is in left byte, FD is in right byte 
StackFD: RTEMP *- T; 

T <- rsh[RTEMP, 10], return; *get displacement 
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*Rt,'ad ByLo Long 

H3L: r <- (Slnck&--1) and (3/7c), call [StackLPx ] , o()cod<j[137] ; 

T <■ NoxtData[IDUf-"l, can[RILPLx]; *d ispl accinorit from pointer 

*Write Dyte Long 

WOL: T <- (Slack&-1) and (377c), cal 1 [ StackLPx] , opcodo[ HO"] ; 

r <- No.xtData[[l)UF], can[WILPLx] ; 'd isplacoirient 

*Road Double Byto Long 

liDBL: T <- (Stack&-1) and (377c), call [StackLPx] , opcodeil41] ; 

r ♦- NextDat.a[IBUr|; 
DoubleRoadLong: Pf etc h2[ LP , Stack] ; 

noto[. l•^,c|uadOVF]; 

111 ♦- NoxtlnstfinUF], can[P5Tnnx]; 
'Do two single CutcliGS, the first to PTfHP 

Pfetcnl[LP,mt"HP], callCDecSlIncTl]; 

P fete hi [LP, Stack], goto[DoublaReadx] ; 

DccSlIncTl: Stack&-X, goto[IncTlP!j] ; 

*VJrite Double Byte Long 

WOOL: r <- (Stacks,-!) and (377c), cal 1 [StackLPx] , opcod<)[l'12] ; 

I" <- NextData[II!UF]; 
noubloWri teLong: Pstore2[LP, Stack], can[SOT]; 
"Do two single stores 

Ps torel[LP , Slack] , cal 1 [IncS2Tl] ; *straignt forward incronient of stkp aborts. We can spewd this up by being more devious. 

P:itorol[LP,Stack], goto[WSDBx]; 

StackLP: T <- (Stack&-I) and (37/c); 

StackLPx: LPhi <- T; 

T ♦- LPhi <- (lsh[LPhi ,10]) + (T) > 1; 

LPhi <- (rixVA[LPh1]) or' (T) ; 

T *• Stack&-1; 

LP * T, return; 
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'Read Indoxed by Local Pair Long 

RXLPL; T ♦- Mqx tDa ta[IDUF] , oi)Code[143] ; 

lUCMP «- T, call [Local LP]; 

T <- (,St,ack&-l) + (T), goto[n£LPLx]; 

■•Writo Indexed by Local Pair Long 
WXLPL; T < MoxtOataCIDUr], opcodeCl4'rj ; 

IMLKP <- T, call [Local LP|; 

T <- (Stack&-1) ^ (T) , (joto[V/ILPLx]i 

*f!ead Indexed by Global Pair Lonq 
UXGPL: r - NextData[IBUF], o|)code[ 145] ; 

!!TF.HP <- r, can[GlobaU,P]; 

T •- (Stack&-1) I (T), ooto[niLPLx]; 

•VJrito Indexed by Global Pair Long 
WXGPL: T <- NexlData[IBUF], opcode[ 146] ; 

RTFMP <- T, call [Global LP]; 

T <- (Stack&-1) + (T), goto[WILPLx]; 

'Read Indirect Local Pair Lonq 

RILPL; r <- NextData[IBUF], 0|)C0de[147] ; 

RTEMP -r r, call[LocalLP]; 
RILPLx: Prctcbl[LP, Stack], goto[P5Ta11 ] ; 

*Wri te Indirect Local Pair Long 

WILPL; T < NoxtData[IRUFJ, o|)Codc[ 150] ; 

RTLMP * T, call [Local LP]; 
WILPLx; Pstorol[LP, Stack], goto[P&Tai 1 ] ; 

*Read Indirect Global Pair Long 

RIGPL: r < NoxtDatariBUFJ, opcode[]51]; 

lULHP < T, callTGlobalLP]; 

Pfotchl[LP, Stack], goto[P5Tairj ; 

•I'/rite Indiroct Global Pair Long 

WIGPL: T <-• MextData[inUF 1, opcode[152]; 

RTEMP <- T, can[G lobalLP]; 

P3lorul[LP,Stack], goUi[P07ail ] ; 

♦Format a long pointer from a local selector, .offset pair 

LocalLP: T «- RTEMPl <■ 5c; *rtempl is a flag for docLPTR (below). 

f < (ldf[RTEMP, 10, 4]) ^ (T); *noto - high half of pointer is fetched first 

Pfot.clil[LOCAL,LPh 1], go to[decLPTR] ; 
LocalLPy: Pf etclil[LOCAL, LP] • *low half 
l.ocalLPx: T < (LPhi) and (377c); 

T « LPhi <- (1sh[LPhi ,10]) +(() + 1; 

LPhi <- (f ixVA[LPhi ]) or (T); *if we docido to trap on references to page 3/7, do it here 

T <- IdffRTEMP, 14, 4], return; 

*Foiniat a long pointer Prom a global selector, , of fsel pair 
GlobalLP: T « RTEHPl <- 4c; 

T -r (ldf[RTEMP, 10, 4]) i- (T); *noto - high half of pointer is fetched first 

Pfetchl[GI ODAL,LPhi], goto[ docLPTR] ; 
Globall.Py: Pf etch1 [GLOHAL, LP] , goto[Loca I LPx]; *low half 

docLPTR: 111 <• 1 df [ RTFMPl , 17 , 1] ; *where to return (T is written here) 
T <- (AllOnes) + (T), dblgot,o[Local LPy, Global LPy, ALU//0] ; 
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"Road String Long 

RSTRL: T <•■ CNextDatn[IBUF'J , cal 1 [RWSTRLx] , opco(ie[lfi3]; 

T ^- csliLnrrMI'i, l], can[!-Glr.hLProRTEHr>]; 

hi «• RTEMPl, clblgoto[RSTRLef t, RSIRRight, Roven], Loa'IPage[4] ; 

I'otchiMNnRLPToRTtHP: T <- MNUR; 

hotchLPTofiTEMP; Ptetchl[LP , RTtMP] , goto[PSRut]; • allow timo to write T 

RWSTRLX: T <■ (Stack&-1) i- (T) ; 

RTEMPl <- T, goto[StackLP]; *RTEMP1 ♦- String index 

"Write String Long 

WSTRL; T <- CNoxtData[ IGUF J , call [RWSTRLx] , opcoc]e[104.1; 

T <- rsh[RTEHPl,l"l, cal 1 [retctiLPToRTCMP] ; 

RTEMPl <-■ T, clbIgoto[WSrRLLort, WSTRLRight, Revon]; *test low bit of RTEMPl 
WSTRLI.eft; T ♦■ 1 sh[Stack&-l , 10]; 

RTEMP «- (rhmask[RTEMP]) or (T) , goto[WFLx]; 
V;STRLR1glit; T <- rliinask[Stack&-l] ; 

RTEMP <- (ll)inask[RTEMPj) or (T), goto[WFLx]; 

^'Read Field Long 

*=****••* Start' of Pilot Codo *******•***************»**•*■«*«•»***♦*•«»** 

RFL: MNBR ♦- CMoxtDala[ IBUF] , cal 1 [StackLP] , opcode[155]; * 

111 <- CycloControl <- CNoxtDatal'lBUF] , ca 11 [FotchMNURLPToStack] ; * 

*-•**•*** End of Pilot Codo ***«•**********•**•»»«»**■»•*»*****«*«•**«**»* 

*//******* Start of Mto Codo •*«***»****•******♦»*****«*.*»* k«** .**«.,*** 

IIIL: loadpage[fr], call (A I ignFiel d] , Opcode[ ISO]; • 

RiEMP <^ T, call[StackLP]; ' * 

T <- RTEMP, call[FGtchLPToStack]; * 

*//*■*■***** End of Alto Code ******'»*"*«**«***«*•***«**«*********:»**«*««*** 

RFLx: 1u <- Hextlnst[ [DUE], caVlfRFx]; 

FetchMNBRLPToStack: T *- MNDR; 

I etcliLPToStack: Pfotclil[l.P .Stack] , goto[PSRot]; • allow time to write T 

'Wri to Field Long 

* = •****** Start of Pilot Code *****»*»*****•«******»*•■«•«•»************«**« 

WFL: MNBR <- CNextDala[ IBUF] , cal 1 [StackLP] , opcode[ lt)6]; * 

111 <- CycleControi <- CNoxtData[IfUJF] , call [FetcliMMBRLPToRTEMP] ; * 

*--:*****'* End of Pilot Code «******«***^»****»««»***********««»**«******** 

*//*•*•*"• Start of Alio Code »«*«***••*»*»«***«*************:.«»*•...*****» 

WFL: loadpago[e], ca 1 1 [Al ignFiel d] , Opcodc[100]; * 

RTEMP « t, call [StackLP]; * 

T >- RTEMP, call[FetchLProRTEMPl; * 

*//**"•'■*** End of Alto Code ********************************************** 

RTEMPl < T; 
WFLy: T <- WFA[Stack&- 1] ; 

RfEMP «- ■(WFB[RTEMP]) or (T); 
WFLx: T <- RTEMPl; 

Pstorcl[lP, RTEMP], goto[P5Tail]; 

*Road Field Stack Long 

RFSL: T <- Stack&-1, call [ FtoRTEMP] , opcodo[16/]; 

CycleControi ^ RTEMP, can[StackLP] ; ' 

T «- rsh[RTEMP, 10]; 

"//******* Start of ATto Codo «*****«**«*«*****«*******♦**»*****•****«*•*« 
111 <r GetRSpec[127], skip[R even]; * 

lu ♦- NextOata[IDuf]; * 



Pfetchl[LP, Stack], goto[RFLx]; 

*Writc Field Stack Long 

WFSL: T ^ Stack&-1, call [TtoRTEMP] , opcode[160]; 

CycleControi < RTEMP, call [StackLP] ; 

T <- rsh[RTEMP,10], cal 1 [FetchLPToRTEMP] ; 



*//♦**»*•* Start of Alto Code *»****»*****^ 
lu «- GetRSpoc[lZ7], skip[R even]; 
lu <- NextData[IBufi; 

*//******* End of Alto Code ***«**..***«***. 

RTEMPl *- T, goto[WFLy]; 
TtoRTEMP: RTEMP <- T, return; 
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■•Lengthon Pointer 

0LP: T <- Slack, opcode[161]; 

goto[Push'rPO, ALU/'/O], T ^ rsh[MOShi , 10] ; *tQst Tor Nil 

r +- Oc; 
PusliTPS: 

lu f- NextInst[IBuf]; 

Stack&+1 ♦- T, NIRET; 

♦Store Locail Double Byte 

SIRB; T <- t!DXtData[IGUF], opcode[162] ; 

Pstoro^LLOCAL, Stack], cari[SQr]; 

Psto rel[ LOCAL, s tack] , ca 1 1 [lncS2Tl] ; 

Ps to rolL LOCAL, Stack], goto[WSDGx]; 

'Store Global Double Byte 

SGDB: T «- NoxtDa ta[ll3UF] , opcodo[ 163] ; 

Ps to ro2[GL0!iAL, Stack], cun[SQT]; 

Pstorel[GL08AL,stack], cal 1 [IncS2Tl] ; 

Pstorel[GLODAL, Stack], (jotoiWSDGx] ; ' 

"Push 

PUSH: Stack«,H, goto[P5Ta i 1] , opcodo[lG4]; 



*Pop 

POP: Stacka-1, goto[PGTai 1] , opcode[165]; 

'"Exchange 

EXCll; T <- Stack&l, Opcodo[l06]; 

MNUR <• Stack, Stack <■ T, ' NoRoglLockOK; 

r <- MNfJR, goto[PuslilP5]; 

*=******* Start of Pilot Code «******«*«*»*-"4 *** *«»*******•** 
*Litik ilyto - equivalent to PUSIIX; Llfi; SUB; SLO;, X is above s 
LINKB: r <• NoxtData[TCUr-], op<:ode[ 167] ; 

Stack&H; 

Stack «- (Stack) - (T); 

Pstorel[tO€AL, Stack, 4], goto[Pr)Tai 1] ; 
* = **'*•*** End or Pilot Code **3*****t* ******«****♦**«***■■«*«**• 



tkp 



*//♦****** Start of Alto Code ***■»***'»******»**'»» 
*Link Byte - equivalent to PUSHX; LIB; SUB; SLO; 
LINKB: T <■ Nox tDa ta[ IBUE] , opcode[16/]; 

Stack&H, LoadPage[e]; 

Stack < (Stack) - (T), 

Onl'age[6] ; 
INKBP6: Pstorel[LOCAL, Stack, 

OiiPago[()] ; 
*//******* End of' Alto Code *** 



gotop[LNKBP6]; 
■1], goto[P6Tail]; 



X is above stkp 



*Dup 1 icate 

DUP: \ <• Stacka-l, opcode[l/0]; 

Stack&i2 <^ T, goto[P5Taili; 

* = ******* Start of Pilot Code *'»«**'»**-i'** •***«***«*«**** ************** 
♦Nil, Chock 

NILCK: T < Stacks,-!, Opcode[l/1]; 

NlLCKx: Stack&H], dblgo to[doTrapPG , P5Tail, ALU-0], T < sPointerFault ; 

*NIL Check Long 

NILCKL: T <- Stack8<-1, opcode[172]; 

lu <^ (Stack) or (T), go to[NILCKx] ; 

"Bounds Check - Trap if (TOS-l) >= TOS (unsigned) 
BNDCK: Stack&-1, opcodc[173]; 

T <- Stack&U; 

lu ^ (Stack&-1) - (T) - 1; 

dblgoto[doTrapP5, PGTail, NoCarry], T *■ sBoundsFaul t; 

* = ******* End of Pilot Code ****'>****•**♦**••**•*****«****«»«*•«***•«*■ 

*//***•*** Start of Alto Code •***♦****•****»****•*********•****»*»***«. 

NILCK: goto[P6Tail], Opcode[171]; 

NILCKL: goto[P!JTai 1 ] , opcodoil72] ; 

BNDCK: Stack8,"l, go to[P5Tai 1] , opcode[173]; 

*//******* End of Alto Code •»*«««***««*«*,.**,*«****.**.*«*«,*******«**. 



*Unimpleinented opcodes on page 5 

T +- sUniinplementod , goto[doTrapP5] , opcode[174] 

T <- sUn implanien tod , goto[do ErapPS] , opcoda[175] 

T <- sUn implemented , goto[doTrapP5] , opcode[176] 

T <- sUnimplemented , goto[doTrapP5] , opcode[177] 

doTrapPG: LoadPago[opPage3] ; 
gotop[kfcr] ; 
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inserl[cl01ang'|; 

NI)MIDAS[NIT; LAfJGVERStON;MULTDIB; 

insort[G1obalDofs"|; 

TnLt[xpr;i; 

* Process Microcode; Last Modified by Sandinnii on April v^ , 19/9 9:01. AM 

*PSB format 

MC[C1eaiiUi)0ffsGt, 1]; . 

MC[TiiiieOffset, 2|; 

MC[F1agsOffsot, 3"]; 

MCri-rameOffset, 4]; 

MC[Pi-ior1 ty, 7"J; 

MC[WaitiiigOiiCV, 10]; 

HC[AbortPeitding, 40|; 

MCiTiniGoutAnowod, 100]; 

MC| FntorFai'led, lOOOOO'l; 

MC[SizoPSn, 5J; 

•Monitor Lock format 
MC[Locl^nn, tOOOOO]; 

♦Condition Variable format 
MCfWWBit, 100000]; 

* Constants 
MC[ClGaiiQueUGl, 0]; 
MCfClGanQiiouea, 1]; 
MCr'Neglnf ini ty, 100000]; 
MC[CVBa.so, 40]; 
MClTimorBit, 20]; 
MC[TimeLocat1on, 344]; 

"Dispatch bas address 
SET[ProcessDisp, LSHTrT[prPago , 10]] ; 

X 

PKf'lags holds opcode dispatcli values and general flags. Its interpi-etat ion is: 

bit => Clean Queue 1 
1 => Clean Queue 2 

bit 10 => Requeue not done 
1 => Requeue done 

bits 10,17 ■--> Notify 

1 => Broadcast 

2 => Naked Notify 

3 => not used 

bits 12-15 Opcode Dispatch 

All flag constants except Nal^odNoti fyFi ags are cycled right 1 in order 
to set bit if necessary. 

% 

*nag values 

MCrHfriaqs, 0]; * Dispatch to 

.SET[ME1oc, 0]; 

MClMRLFlags, 21]; * Dispatch to 2, Clean Queue 2 

SETtMRtloc, 2]; 

HC[MXWnags, 51]; * Dispatch to 5, Clean Queue 2 

SETfMXWIoc, 5]; 

MClMXDFIags, 61]; * Dispatch to G, Clean Queue 2 

SET|MXDloc, G]; 

MC( NOTIFYFlags, 100]; * Dispatch to 10, Clean Queue 1, Notify 

HcjoCASTFlags, 102]; * Dispatch to 10, Clean Queue 1, Broadcast 

SEf[Wakotloadloc, 10]; 

MCfREQFlags, 130]; * Dispatch to 13 

SEffPEQloc, 13]; 

MC[NQkedNotifyFlags, 2]; * Clean Queue I, Naked Notify, not cycled 

HC[RequeueOccured, 200]; * Requeue occured, not cycled 
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ONPAGE[opPageO]; 

*ME 

@ME; GOTO[ChockLonnl], PRFIags *- (HEFIags), opcode[l]; * Monitor Lock, 

*MRE 

0MRE; GOTO[ChockLong2], PRFIags <- (MREFIags), opcode[2;|; * CV, Lock 

*MXW 

@MXW: PRFIags <- (MXWnags) , opcocle[3]; * Tiino, CV, Lock 

MXWx: T ♦- Stack&-1; 

G0T0[ChockLoiig2], Procoss <- T; 

*MXD 

0MXD: GOTO[CheckLongl], PRFIags <- (MXDFIags), opcodo[4]; * Monitor Lock 

"NOTIFY 
OfJOriFY: 

GOIO[ClieckLongl], PRFIags *- (NOTIFYF lags ) , opcode[s;|; * CV 

*BCAST 

eOCAST: GOTO[ChockLong:l], PRFIags <■ (BCASTFl ags) , opcodo[G]; ♦ CV 

*REOUEUE 
BREOUEUE: 

PRFIags ♦- (REQFIags), goto[MXWx3, opcode[7]; * Process, Ql, Q2 

ClieckLoiig2: 

T <- (373c); * Stkp value for two long pointer operands (4), 
T ^ (nStkp) XOR (T); * Check for stack si?o of 4. 

r ♦- RIIMask[;MOSIii], db1goto[Sliort2 , LoiigZ, ALU//0]; 

CliockLongl : 

T < (375c); * Stkp value for one long pointer operand (2). 

T <- (nStkp) XOR (T); * Check for stack size of 2. 

r <• RllMask[MD,Shi], dblgoto[Sho rtl , Longi , ALU//0]; 

Short2: 0ucue2hi <- T, call [FixQueuo2]; 

T f llilMask[HDShi], goto[Shorti;j; 

Long2: T <- Stack&-1; 

Queue2hi *■ T, call [Fix0ueuo2]; 
T «- Stack&-1, goto[Shorti;|; 

Longl: T <- Stack&-1; 

Short!: Queuellli <- T, goto[FixOueuol]; 

Fix0ueue2 : 

T ♦- guouo2hi «- (lsh[Quoue2hi ,10]) + (T) + 1; 
0uouo2hi <- (f ixVA[Queuo2hi]) or (T); 
r «■ Stack&-1; 
0uoue2 >- f, return; 

FixQueuGl; 

r <- Stack& 1, TASK; 

Queue! <- T; 

1u *- (Ououelhi) OR (T); 

T « Oi'euollii, skip[alu = 0]; 

1^ «• Oueuolhi »- (1sh[0ueiiolhi , 10]) ^ (T) + 1; 
Ououelhi <- ( f ixVA[Queuelhi ]) or (T), goto[ProcessOps] ; 

ProcessOps : 

LoadPagel pi'Page]; 

Di spatchjPRFlags , 11, 4], gotop[ProcessDi spatch] ; 

OnPage[prPago] ; 

ProcessDispatch : 

PRFIags <- RCY[PRFlags, 1], Disp[HEnter]; 
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********* i^^ifiit********* 111 **'ii*************'ti*:!i 11**** **«♦ if iH***!l«1'1i-l'^<1i*<I 

" Monitor Enter; 

* 

* Input 

» Qucuel Baso rogistcr pointing at monitor f|iHHi9 



MQ 



Temps 



process handle 



Cons tan ts 
CurrontPSB 21B, address of CurrentPSn 

l.ockBit lOOOOOB, lock bit of Monitor lock 



Mfinter: T <- (Curren tPSU) , caVI [QueuelToMQ;! , AT[Procossl)i sp , MEIoc]; 

111 <■ MQ, goto[MF.Lockfid, R >= O); 

MQ *- (MQ) AND NOT (LockBit), caVI [MQToQiiouel] ; 
MFiENoAbort: 

Stack&>t *- IC; * even location 
PrTaii ; LoadPage[opPageO] ; 

goto[P4Tai1]; 



HELockod: 



PFotchl[PBase, Process], gotofMREnterFai led] ; 



Monitor ReEnter; 

Input 

Queuel Base register pointing at monitor queue 

QueueZ Base register pointing at condition queue 

Temps 

PBase Base register of PSBs 

Process process handle 

RToinpl temp 

Cons taiits 

LockBit lOOOOOB, lock bit of Monitor Lock 

ClcanUpOf fset 1, offset of cleanup link in PSB 

FlagsOffset 3, offset of flags and priority in PSD 

CurrontPSB 2tB, address of CurrontPSB 

sProcessFrap 17B, offset of sProcessTrap in SD 



PRTrap: 



T <- (CurrontPSB), callCQueuelToMQ] , AT[ProcossDi sp, MHEloc]; 

ca I I [PUasofoPioccss I ; 

lu <- MQ , goto[MREn terFai 1 ed , R >= 0]; • ignore viw bit 

UseCTask, cal i[Cl oanUpQuGue] ; * Clean up Queuel 

MQ <^- (MQ) AND NOT (LockBit), call [MQToQueue I] ; 

r <~ (Process) 1 (ClcanUpOf fset ) , cal I [/eroToPBase] ; 

T <- (Process) h ( FlagsOf f set ) , call [PBaseToRTempl] ; 

lu <• (RTempl) AND ( AbortPondiiig ) ; 

goto[MRENoAbort , alu = 0]; 

T <- ( sProcessTi-ap) ; 

LoadPage[opPage3] ; 

gotop[kfcr] ; 



MREnterFailed: 

T «- Queuel; 

QueuoZ *- T, TASK; 

r <- Queuelhi ; 

Queue2hi <- T; 

T f- (Process) + (FlagsOffset), call [PBaseToRTempl] ; 

Queuelhi <- (ReadyQhi), cal 1 [ReadylnQueuol]; 

RTempl ^ (RTempl) OR ( FnterFai led) , cal 1 [RTomplToPBase] ; 

UseCTask , cal 1 [ RequeueSub] ; 

T <- PRFlags, goto[ReSchedule]; 
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• Monitor Exit, and Depart; 

" Input 

• Ouetiel Base register pointing at monitor- (|ueue 

'^ 

MXDepart: 

UsGCTask, can[ExitMon], AT[ProcessD1sp, MXIDIocj; 
T ♦- PRFIags, goto[RoSchedu le]; 

• Exit Monitor; 

* Input 

* QuGUOl Base register pointing at monitor quouQ 

• Tomps 

* PBase Base register of PSBs 

* MQ process handle 

* Process process handle 
'" EMLinIc return iinlc 

• Constants 

» LockBit lOOOOOD, lock bit of Monitor Lock 



ExitMon : 

T <- APC&APCTusk, calirQuoLielToMQ]; 

EMLink <- T ; 

T ♦- MO < (MQ) AND NOT (LockBit); 

goto[EMUn lock, a'lu = |; 

i'lotchlf PBase, Process], cai irHead.yIn0iieue2] ; 

UseCfask, cal 1 [RoqueuoSub] ; 

cal i[Quouo iToMQ |; * no(|ueuo may have changed HQ 

goto[EMUn1ock]; 
CMUniock: 

MQ <- (HQ) OR (LockBit); 

PStoro][Oucuel, MQ, 0], can[PRRDt]; 

APC&APCVask <- EMLink, goto[PRRet]; 
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* Monitor Exit and Wait; 

* Input 

* Ououq2 Base register pointing at condition (|Uouo 

* Quouel Base rerjister pointing at monitor qufiiie 
'» Process Timeout value 

* Temps 

* PDase Base register of PSBs 

* MO process handle 

* PRTiine holds timeout value 

* UTeinpl process handle 

* Constants 

* WWBit 10000013, WW bit of Condition 

* LockBit lOOOOOU, lock bit of Monitor Lock 

* CleanUpOf fset 1, offset of cleanup link in I'SB 

* rimcOffsat 2, offset of flags and priority in PSB 

* llagsOffset 3, offset of flags and priority in PSB 

* WaitingOnCV lOB, WaitingOnCV bit of PSB 

* AbortPending 40B, AbortPending bit of PSB 

* TimeoutAliowed lOOB, TimeoutAI lowed bit of PSB 

* CurrontPSB 21B, address of CurrentPSB 

* TimeLocation 3410, address of Timeout timo in Memory 

MXWail: T < Process, AT( ProcossDisp, MXWloc'J; 

PlUimc <■ T, UseCTask, cal i [CleanUpQueuo] ; 

T *- QTemp, cal 1 [SwapOTompAnd02] ; 

UseCTask, cal 1 [Ex i tMon"| ; 

T <- (CurrentPSB), cal 1 [PBasoToProcess] ; 

T <- (Process) + ( FlagsOff so t ) , call [PBasoToRTempl ] ; 

Ui < (RToiiipl) AND (AbortPending) ; 

golofMXV/Abort, alu // 0]; 

PI-etcbl( QTemp, MQ, OJ; 

can[PI!Ret]; 

HQ <- (MO) AND NOT (VA'/Uit), go to[MXWOn toCV, R >= 0]; 

PStorcl[QTcnip, MQ , 0'|, call[PRRet]; 

T >- PRfiags, goto[RoScliedule]; 
MXWOntoCV; 

lu *- PRTime; 

RTompl <- (RTcmpl) OR (WaitingOnCV), gotof.MXWIIavoT imo, alu == 0]; 

T <- (TimeLocation), cal 1 [PBaseToCurrentT imo] ; 

T <- CurrentTime ; 

PRTime <- (PRTime) i- (T) ; 

go to[MXWIIavoTimox , alu // 0]; 

PRTime <- (PRTime) ■^ 1; 
MXWIIaveTimoL 

nop; 
MXWHuvoT Imex ; 

Queiiolhi <- (ReadyObi), cal 1 1'ReadylnOueuol]; 

I < Qlump, cal l[SwapQrempAndQ2]; 

\ < (Process) + ( F lagsOf f set ) , call [RTempiroPBaso]; 

UseCTask, cal 1 IReguoiieSidj] ; 

r <- (Process) + (T imeOf f set ) , call [PRTimeToPBase] ; 

T <- PRf-lags, goto[ReSchodulei; 
MXWAbort: 

T <- PRIlags, goto[neSchodule]; 

SwapOTompAndQ2 ; 

MNBR <^- 0ueue2, Queue2 <• T, NoReglLockOK; 

T *- MNBR; 

Ofemp <- T; 

T <- QTemplii ; 

MNBR <- Quoue2hi, 0ueue2hi *- T, NoRegTLockOK; 

T <- MNBR; 

QTcmphi <- T, return; 
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* Notify Broadcast; 

* Input 

* Otieuel Uase register of queue to bo tiotifiod 

* Temps 

* ('Base Base register of PSBs 

* MO process haiullG 

* RTompl process handle 

* Process process handle 

* PRTinio Did something 

* PRFlags flags 

* Constants 

* WWBit lOOOOOD, WW bit of Condition 

* Meglnfinity lOOOOOB 

* FlagsOffset 3, offset of cleanup link in PSB 

* WaitingOnCV lOB ,. Wai tingOnCV bit in PSB 

Wakotlcad: 

UsoCTask, cal 1 f CleanUpQueue] , ATfProcossDisp , Wakolloadloc]; 
WIlLoop: 

PRTinie <- (Zero), cal 1 [Queue IToMQJ; 

MO *- T <■ (MO) AHD NOT (WWBit); 

lu <^ l.DF[PI!l lags, 16, 1], goto[Wlli;x i t , alu = 0"I; 

T «- MQ, call[PBasoToProcess"|; 

r <- (Process) i (FlagsOffset), cal 1 [PBaseToirronip r| ; 

PlUime <- (Ix), can[RoadyInQuouo2 ] ; 

RTompl *- (RTeinpl) AND NOT (WaitingOnCV), cal 1 [ RTemp IToPBase;] ; 

UsoCTask, cal 1 [ RcquoueSub] ; 

lu <- PRFlags, (jotofWIILoopx , R odd]; 

lu <- I.DF[PRFlags, 16, 1], goto[WIIExit] ; 
Wlll.oopx : 

goto[WHLoop 1 ; 
WIIExit: T «• PRFlags, goto[ReSchedulo, alu = 0]; 

lu <- PRTime, dblgoto[SetWWDit , NakedNoti f ied, R even]; 
SotWWBit: 

MO <- (V;WBit), call[MQroOueuol]; * even location 

NakedNoti f ied: 

IntLevel <- (IntLovel) + 1, LoadPago[OpPngeOJ ; * odd location 

goto[ChockCV]; 
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* Requeue; 

* calling instruction must include UseCTasIc 

* Input 

* Quouel Base register pointing at queue 

* Quoue2 Base register pointing at queue 

* Process process handle 

* Output 

* ReSched BOOLEAN 

* Temps 

* PBaso Dase register of f'SBs 

* Prev process handle 

* RTemp Process. link until insert, then Process . priori ty 

* RTempl process hnndio, priority 

* RTemp2 process handle, priority 

* RLinIc return address 

* Constants 

* CleanUpOf fset 1, offset of cleanup link in PSB 

* FlagsOffset 3, offset of flags and priority in PSB 

* Priority 7, priority bits 

* RequeueOccurod 200B 

RequeuoOp : 

UseCTask, cal 1 [RequeuoSulj] , AT[ProcessDisp, RF.Qloc]; 
T <- PRFlags, goto[ReSchedulo]; 

RequeuoSub: 

T *- APC&APCTask; 

Rl. ink «- T; 

r > Process, call [PBasoToRTemp] ; 

lu <- (RTemp) - (T) ; 

lu <- Queuelhl, goto[RQGotPP , alu = 0]; * only one process 

goto| RQl.oopl , alu = 0]; * Queuel NIL, T ■ Process 

PFetchl['Queuel, Prev, 0], can[PRRotJ; 

T *- Prev, goto[R01-Ooplx] ; 
RQLoopl: 

Prev <• T; 
RQLooplx: 

Prev <• T, can[PBaseToRTompl]; 

T «• RTempl; 

lu <- (Process) - T; 

goto[ROIooplx, alu // 0]; 

t <- Prev; 

call [ RTompToPBase] ; * RTemp has Process. link 
RQFixCV: 

lu <- Queue Ihi; 

T «- (Process) + (ClcanUpOf f set ) , goto[RQIIaveQl , alu // 0]; 

PStorel[PBase, RTemp J; 

cnli[PRr!et]; 

gotoiRQInsrt]; 
RQGotPP: 

T <- Prev <- (Zero), goto[ROFixCV]; 
RQHaveQl: 

PFetchl[Oueuel, RTempl, 0]; 

T <- Process, can[PRRet |; 

lu <- (RTempl) - (T); 

goto[RQInsrt, alu // 0]; 

PStorell'Queuel, Prev, O']; 

cal ItPRRotJ; 

goto[ROInsrtl; 
RQInsrt: 

PFetchl[Queue2, Prev, 0], can[PRRet]; 

lu <- Prev; 

T <- Process, goto[RONi 1PP , alu = 0]; 

T <- (Process) + (FlagsOffset), call [PBaseToRTomp] ; 

T <r (Prev) + (FlagsOffset), can[PBaseToRTempl]; 

RTemp ♦ (RTemp) AND (Priority); 

T <- (RTempl) AND (Priority); 

Ui <- (RTemp) - T - 1; 

T <- Prov, goto[RQFixQ2, alu < 0]; 

goto[RQLoop2]; 
RQLoop2: 

Prev <- T, can[PBaseToRTempl]; 

T ^ (RTempl) + (FlagsOffset), call [PBaseToRTemp2] ; 

T «■ (RTemp2) AND (Priority); 

lu <- (RTemp) - T - 1; 

T <- RTempl, db1goto[RQIns rtHero, RQLoopZ, aUi >= 0]; 
R0Fix02: 

PStorel[Queue2, Process, 0], can[PRRet]; 
RQIns rtHere: 

T *- Prev; 

can[PBaseToRTempl]; 

T <- Process, call [RTeniplToPBaso]; 

T <- Prev, can[ProcessTQPBase"|; 
RQRet: T *- (Process) + (TimeOf f set ) , ' can[ZeroToPBase]; 

APC&APCTask «- RLink; 

PRFlags *- (PRFlags) OR (RequeueOccured) , return; 
RQNilPP: 

T <- Process; 

call [ProccssToPBase]; 

PStorea[Queue2, Process, 0], goto[RQRot]; 
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* CloaiiUpQueiio; 

* this routine cleans up a queue witlch may possibly 

* have been left in a mess by Requoue. 

* 

* calling instruction must include UseCTask 

* Input 

•* PRFlags oven => clean Queuel, odd => clean QuouoZ 

* 

* Temps 

* PDase Raso register of PSBs 
" RTomp process handle 

* RTcmpl process handle 

* MNDR process handle 

* RLink return address 

* Constants 

* WWDit 1000000, WW bit of Condition 

* CleanUpOffset 1, offset of cleanup link in PSD 

C leonUpQuoue : 

T «- APC&APCTask; 

RLink *■ T, cal 1 [CQueueToRTerap'l ; * got pointer to tail 

RTemp <- (RTomp) AND NOT (WWOit); * ignore ww bit 

T <- (RTemp) i- (CloanUpOff set ) , goto[CURet, alu -■ 0]; 

Pretchl|;PHase,RTeiiipl], call[PRRot]; • get head of queue 

lu <- T <- RTomp 1; 

lu <- (RTemp) - (T), goto[CURetx, alu-0]; 

RTemp <- T, goto[CUEmpty , alu = 0]; 
CULoop: T <- (RTemp) + (CleanUpOffset), call [PnasoToRTempl] ; ■> get head of queue 

lu «■ T <- RTemp 1; 

lu <- (RTemp) • (T), goto[CUFoundliead, alu = 0]; 

goto[CUEiiiptyx , alu = 0]; 

Rfcmp <- T, goto[CUI.oop I ; 
CUEmpty: 

RTomp <- (Zero), goto[CUFixCV]; 
CUCmptyx : 

RTemp ♦- (Zero), goto[CUFixCV] ; 
CUFouitdllead: 

MNBR <- T «- RTomp; 
CULoop2: 

RTemp «- T, cal 1 [PBasoToRTempl] ; 

T ♦ RTemp 1; 

lu <- (MNBR) - (T); 

goto[CULoop2, alu // 0]; 

nop; 
CtJFixCV: 

cal 1 1 RfempToCOueue"! ; 
CURet: APC&APCTask < RLink, yoto[PRRot|; 
CURotx: APC&APCTask «- RLink, goto[PRRoti; 

CQueueToRTemp: 

lu <- PRFlags, nRLGoto[OueuelToRTemp , Ououe2ToRTomp, R >= Oj; 
RTempToCQueue: 

lu «- PRFlags, DBLGoto[RTempToQueuol , RTempToQuoue2 , R >= 0]; 
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RoSchedu lo; 

Input 



I4i«««4««i|ii}itl)ili>t 



contains PRFIags 



Temps 

PBase Base registor of PSBs 

riTemp process handle 

RTempl process liandlo 

MNBR process handle 

HLink return address 



RnterFailed lOOOOOB, RnterFailed bit oT PSB 

CleanUpOffset 1, offset of cloanup link in PSB 

KlagsOffset 3, offset of priority and flags in PSB 

FrameOffset 4, offset of frame in PSB 

CieanUpOf fsot 1, offset of cleanup link in PSB 

Priority 7, priority hits in PSB 

StkPOffsot lOU, offset of stack pointer in state vector 

DestOffset IIB, offset of dest in state vector 

CurrentPSB ZIB, Current process 

ReadyQ 22B, Ready queue 

CurrentState Z3B, Current state 



Reschedule: 

goto[PrTail, NoMZBitS]; 

nop ; 
IntReSch; 

T *■ (CurrentState), ca n[PBaso ToRTRmp] ; 

l.oadPa(jo[OpPage3] ; 

cal 1 p[SavPCIn Frame ] ; 

T <- Ricmp, LoadPage[ xf Paget ] ; 

xfTemp i' T, UseCTask, cal lp[SavoState] ; 

r < (CurrentPSB), call [PBaseToRTeinpl J; * RTcinpl «- currentPSB 

T «- (RTompl) + (FrameOffset), cal 1 [Local ToPBase] ; 
IdlelntRS: 

r t- (RoadyO) ; 

ca 11 1 PBase foRTemp I]; 

lu < T < RTempl; 

lu <- xfWDC, goto[MoneHcady, aUi - 0]; 

call [PDasoToProcoss'l ; * Process *- readyl ist . 1 ink 

* setup for new process 

T <■- (Process) + ( FlagsOf f set ) , cal 1 [PBaseToRTeinpl] ; 

Rlemp < (xfAV); 

r V. (iUemp) ^ (FirstStatoVector), cal l[PBase loRI emp]; 

MNBl! <- Rronipl, TASK; 

HTompi <- r *- (RTempl) AND (Priority); 

RTempl <• ( I.SIl[RTempl , 2'|) + (T); 

T < (LSII[RTempl, 1]) + "(T), TASK; 

Rlemp < (RTornp) + (T); 

T *- MNBR, goto[Nor^ntorFailed, R >= 0]; 

RTempl <• T; 

RTempl »• (RTempl) AND NOT ( EnterFai led) ; 

T <^- (Pi'ocass) I- (FlagsOffset), cal 1 [RTemplToPBase] ; 

T <- RTemp, call [ZoroToPBase ] ; * stack[0;] <■ 0; 

RTompl *- Ic; * stkp *- X 

T ^ (RTemp) ^ (StkPOffsot), cal l[RTemplToPBase] ; 
NoEn terFai led: 

T *■ (Process) i- (FrameOffset); 

call[PBaseToRTempl]; 

T <- (RTemp) + (DestOffset), cal l[RTemplToPBaso] ; 

T <- (CurrentPSB), cal 1 [ProcessToPBaso] ; * currentPSB *- proce 

T <- (CurrentState), cal l[RTompToPBase] ; 

T <- RTemp, LoadPage[xf Paget] ; 

xfTemp *• T, gotop[LoadState] ; 

NoneReady: 

T «- ( sWakeupError) , goto[PRTrap, alu // 0]; 

RTemp <- (Zero); 

PRFlags *■ (Zero), cal 1 [ IdleLoop] ; * clear PRFlags in idle int 
IdloLoop; 

goto[ldlolnt , IntPending]; 
PRRet: return; 
TdlGint: 

LoadPage[0pPage3] ; 

T ♦• (GetRSpec[103i) XOR (377C), gotop[MIPendx] ; 
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PDaseToProcGSs : 

l'Fetr,hl[PBase, ProcossJ, return; 
Process loPliase ; 

PStorel[PBase, Process], retunn; 

PDnso ToRTemp ; 

PFetchlfPnase, RTemp], return; 
RTempToPnase : 

PStorol[PBaso, RTonip], return; 
PRasoToRTmnpl: 

PFetclilfPBase, RTeitipl], (joto[PRRQt;| ; 
RTcmplToPDase: 

PStorQl[PBas0, RToi:ipi;|, goto[PRRe't;i ; 

PBaseToRTemp2: 

P(-etclil[PBase, RTemp?], return; 

OueuelToRTenip ; 

PFotchl[OueuGl, RTemp, 0], return; 
RTempToQueuel: 

PStorel[Qucuel, RTemp ,0] , return ; 

Queuo2ToRTomp: 

PFetchl[QuoueZ , RTomp.O] , return; 
RTompTo0ueue2: 

PSlorel[QueueZ , RTemp ,0], return; 

Queue IToMQ: 

PFetchl[Queuel , MQ, 0] , goto[PRRet] ; 
MQToQueuel : 

PStoret[Oueuea,MO,0], goto[PRRot]; 

PRTimoToPBaso: 

PStorel[PBase, PRrimo], return; 
ZoroToPBaso; 

PStorGl[PBase, R7.ero], return; 
l.oca IToPBase : 

PStore][PBase, Local], retuin; 

PBaseToCurrentTime : 

PFtitchl[PCase, CurrentTimc] , i-eturn; 

Ready IiiQueuel: 

Oueuol *■ (ReadyQ), return; 

Ready In0ueue2 : 

0ueue2hi <- ( RoadyQIi i ) ; 
Quouo2 <- (ReadyQ), return; 
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* Interrupt Processing; 

* Input 

* WW Wakeiips Waiting register 

* rickCount number of ticks until scaniiig PSDs required 

* CurrentTiiiio current time 

* 

* Temps 

* IntLovol pointer to CV array olonients 

* Intlypc even => idle loop interrupt 

* ITenip temp 

* ITcmpl temp 

* Constants 

* WWait lOOOOOB, WW bit of Condition 

* TiraeOffsot 2, offset of time in PSB 

* i-lagsOffset 3, offset of flags and priority in PSB 

* WailiiKjOnCV 100, WaitingOnCV bit of PSI! 

* NakodMotI fyFlags 

* Interrupt Processing 

onpage[Opl'ageO] ; 

[nterrupt : 

WW <- (WW) AND MOT (TimorRit), goto[TinierInte rrupt , aiu // 0]; 

IntLovol «" (CVBase); 
CheckCV: 

cari[rii1sCV]; 
ThisCV: WW <- RSII[WW, 1], goto[IntTh isCV, R odd]; 

go to[ IntDone , a1u - 0]; * load page for done 

IntLevel ^ (IntLovol ) + 1, return; 

IntThisCV: 

T *■ IntLovei, Call [IntPBasoToQuouel] ; 

lu <■ Queue 1; 

QueuGlIri <- ( I'oa'JyQ'ii ) > gotol'DoNothing , alu = 0]; 

LoadPac)o[prPage'l ; 

PRFIags ^ (PRFiags) OR (WakedMotI fyFlags ) , goto[WakeHead] ; 

DoHothing : 

IntLevel <- (IntLovol) + 1, goto[CheckCV] ; 

IntDone : 

LoadPage[prPage"| ; * load page for done 

lu *-■ Iiitfypo,' dblgotop[IntHeSch, IdlelntRS, R odd]; 

Tliiierlnterrupt : 

TickCount <- (TIckCount) - 1; 

IntLevel * (CVBase), skip[alu = 0]; 
go to[ Cliecl^CV] ; 

ITeinp '^ (xfAV); 

T ♦- ITemp <- (ITenip) + (I- 1 rstProcoss) , can[IirtPBaseToProcess] ; 

r «- (ITemp) ^ 1; 

PFetchl[PBase, ITempl]; 

T *■ TineLocat ion , call [ IntPCaseToCurrentTlme]; 

CurrentTlnio <- (CurrentTime) + 1, cal l[IntCurrentT1meToPBase]; 

nop; 
TLoop: T ♦- (Process) + (TimeOf f sot) ; * can't have call befoi'O this 

PFetchl[PBase, ITenip], call[P4Ret]; 

lu «- T <- ITemp; 

lu <- (CurrentTime) - (T), goto[CanTimeout , a1u // 0]; 
CheckEnd: 

T «- Process *- (Process) + (SizePSB); 

lu <- (ITempl) - (T); 

TickCount <- (3c), goto[TLoop, alu >= 0]; 

goto[CheckCV]; 
CanTimeout : 

goto[T1meOut , alu = 0]; 

goto[CheckF.nd] ; 
Timeout: 

Queue? *- (ReadyQ); 

Queue in 1 «- (Zero); 

T <- (RZero) + 1, LoadPage[prPage] ; 

Queue2tli <- T, UseCTask, call [RequoueSub] ; 

T *- (Process) + ( FlagsOf f set) , call [IntPBaseToQuouel] ; 

Queuel <- (Queuel) AND HOT (WaitingOnCV); 

PStorol[PBase, Queuel], ca11[P4Ret]; 

goto[CheckEnd]; 

IntPBaseToProcess : 

PFetchl[PBase, Process], goto[P4RGt]; 
IntPBaseToQueuol: 

PFetchi[PBase, Queuel], goto[P4Rot]; 

IntPBaseToCurrentTimo: 

PFetchl[PBase, CurrentTime], goto[P4Ret]; 
IntCurren tTimeToPBase; 

PStorel[PBase, CurrentTime], goto[P4Ret]; 

END; 
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■insort[d01arig]; 
MOMIDASINT r ; LANGVFRSTON ; 
iiiseri.[g1olja Ulef s^ ; 

TiTLE[xf]; 

» niocJifled by Jotinsson October 9, 1979 4:08 PM, Al? 1829 - PilTP 

* modified by Sandman September 10, 1979 2:14 Pit, AR 1708 type ? XFor, PortI 
" .iiodil'iGd by Chang September 10, 1979 5:17 PM, Bad MapOul.ofFJound:j 

* modified by Johnsson June 28, 1979 8:10 AH 

* modified by Chang Juno 4, 1979 1:06 PM, fix 3 words, rmno'je HuitiOib 

* modified by Johnsson May 14, 1979 9:51 AM 

* modified by Sandman Hay 8, 1979 12:37 PM 

'Dispatch base addresses 
SKfCxfPaqelp, LSIiIFT[xf Parjol , 10"J"J; 
Sn| AliocOisp, ADD[xrPa(jRlp, 120]]; 
SRflxftype, ADD[xf Pagelp, 140]]; 
.'>rT[xfWRtab, ADD[xfPaqo:lp, 100]]; 
SI- rfxfinuab, ADD[xfPayolp, 200]]; 
srf[Mi5cDisp, ADD[xfPago]p, 220]]; 
SKlineadTimcLoc, ADD[xf Pagelp, oj]; 
HC[ReadliiiieAddr, OP0[1 70000, Readt imeLoc]] ; 



AilocSub 

called from xforg and ALLOC 

coMstan ts 
xfav allocation vector base 

input registers 
T frame s izo index 

output registers 
xfframe, T frame pointer, xfPramo = 1 if fail 

temps 
xffsi frame size index 
RTCMP holds framo chain link 
xfrsav liolds frame chain 1 iiil< address 
xfrlinl<. holds return address 



onpage[xf pagel] ; 

*sinco xfPagel has NextData's and Noxtlnsts, it must have rufiil link at 377 

xf Refill: gotop[MosaRefi1l], Pfotch4[PCI! , lliUF . 4] , Ar(;ORf)[LSII]:FT[xrPagel , 10] , 37?]]; 

SavoRLink: 

xfRLink <- T, return; 

AllocSiib: 

USECTASK , xffsi «- t; 

T <- APC&APCTASK, cal 1 [SaveRLink] ; *save link in rlink 

T <r (xfFSI) I (xfav) ; 
ALL0C3: 

task , xfRSAV <■ T; 

PI l.rcill[MDS, xfframe]; *the head of the list (can't fault) 

()[SPATCII[xrf rame, 16,2]; 

I)1SP[FI!TYP0] , xfframe *- T *- (xfframe) AND NOT (3C); 
FRIYPO: 

PI FTCIIirMDS.RTEMPJ, Ar[ ALLOCDISP , 0] ; * fault if frame swapped out 

V ^- XfRSAV, cal l[xfRet]; 

PST0RE1[MDS,RTEMP] , call [xf rot ] ; * (can't fault) 

APC&APCTASK <- xfRLINK; *reload link from rlink 

RETURN , T <- xf Framo; 



FRTYPl: 

FnTYP2: 
FRTYP3: 
ALL0C3A; 



APC&APCTASK <- XfRLINK , AT[ALL0CDISP , 1|; 
RETURN , xfFrame <- (Ic); 

G0T0|;aLL0C3A] , T <^ xfframe <■ RSHCxf f rame , 2] , AT[ALLOCDISP , 2] ; 

G0T0[ALL0C3A] , T <- xfframe <■ RSIl[x f f rame , 2] , AT[ALLOC()ISP ,3] ; 

goto[ALL0C3] , t <- (xfframe) + (xfav); 
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* FreeSub; l-'ree's the frame if MomStat[14] is 1. 

* constants 

* xfav allocatioii vector base 
' input registers 

* T address of frame 

* output registers 

* xffsi frame size index 

* temps 

* xfriinl^ roturn-lo address 

* RTEMPl liolds frame cliain Unlc 

* Nolo: Mono of FreeSub's memory references can pago fault!! 

* riiis implies tfie av must bo resident and Lf-lJ must not bo swapped out. 

CondFreeSub: * load lu with FreoFramo bit from McmStat in calling inst, 

go to [Free Sub , al u//0] ; 
return ; 



FreeSub : 



xfFrame <- T, USFXTASK; 

T <- AI'C&AI>CrASK, can[SaveRLinl<L]; "save link in rlink 

T <- (xfFRAME) - 1, task; 

PFtTCHl[MDS,xfFSI"|; *get fsi 

xfFSl <• T <- (xfFSi) + (xfav), task; 

PFETCIll[MI)S,RrEI^Pl]; * got head of list from av 

T <■ xfFUAMF, task; 

PSTOr!El[HIDS,RrEHPl ]; * link <- head 

T <- xfFSI, task; 

PSTOnEllMDS.xfFRAHl..]; ' head <- frame pointer 

APC&APCfASK «- xfRI.INK; *roload link I'rom rlink 

I'lemStat «- (Normal), RETURN; * clear FreeFlag 
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* Xfer 

* input registers 

* xfMX contains dost link or indiroct iliik 

* xftoinpZ contains mesa byte program counter 

' xfbrkbyte contains break op-code to oxecuto 

* xfXTSrog contains Xfer trap flag 

* output registers 

* xffsi holds frame size index 

* temps 

* xf count 

* RTEMP 

* xftemp contains dest link 

Xfer: 

xftenip«-( zero); 'setup Xfer trap reason in case of Xfer trap 

T <• xfMX,cail[ChockXferTrap]; 
Xfors: 

xfToinp <- T; 

GOTOrControiTrap, ALU = ] ,DXSPATCR[xf Temp , 16, 2'\: 

MomStat <- (McinStat) or (EarlyXfer), DXSP[Xrt:RTYPE] ; 
XrERTYPC: 

PFFTCII2[MDvS,xfTenipl, AT[xft.ype , 0] ; ♦ Get Gf-TP & Savod PC. 

cari[Loadgc]; 

*//******* Start of Alto Code ******»*^«**** *»*•**«««********«•** ***»**. 

xfToiiip *- T <- l5li[xfrcmp, 1], qoto[pcOkay, r >= 0"|; 

r <- (Zero) - T; 

xfTeinp < (Zoro) 1 (T) h I; 
*//♦***•** End of AUo Code »******»******•**♦*•*♦*■»*♦***■««»**«***** ».n.! 



pcOkay: T ^ xf Frame, gotofXf crGo] ; 



xfCranie contains dest 



save descriptor, (xfToiiip clobbered) 



xfertypol : 

xf Count <" T , AT[xftype,l |; 

xfTemp <- 1 df [xf romp , 0, 1 1] ; 

T <~ (xfgf t); 

task,T ^ (IsliCxfTcmp,!"]) t^ (T) ; n <• gfi*2 h xfgft 

PfErCII2[MDS,xrrcmpJ; 

cai 1 [I oadgc] ; 

T <- ( XfTemp); • evoffset from gft 

xfCount <- (Idf [xfCount , U ,b]) + T 1 1; * + evi from descriptor + 1 

xfCount <- lsh| xfCount , 1] , gotofxfergj; * 2*evi^<? 

xf ertypo? : 

PKETCM2[MDS,I!TCHP I , AT[x f type , 2] ; 

T < XfMX; 

Stack&+1 ^ T, TASK; 

Stuck&-1; 

T <- RfEMP , goto[;<forsj; 



xf crtypo3 : 



T <- sUnbound , goto[StashMX] , AT[xf typo , 3] ; 



Cent rolTrap: 

G0TO[MTrapFl, RTfMP <- sConl roi Fault ; 
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* Tnterchange T (the now LOCAL) and LOCAL ( tho old) and do a 

* FroeSiib on tlio old franio If tho FrooFlag in MemStiit indicates. 

* Now Byte pc 1n xfTeiiip 

XforGo; 

MNBR <- LOCAL, LOCAL «- T, task , NoFiegJLockOK; 

* LOCAL <- new ffanie, MNBR <• old Trarao 
T «- MNBR; 

111 <- ldf[MoniStat,14,l], cal i [CondFrooSub] ; * load FruoFlay 
PCF *- xrt(3ni[); 

HeniStat <- XforFixup; *rixup; byte pc = PC*2^PCF 
t<^rsh[xfTemp,l"|; 
protch'l[CODE,IB(ir"|; 

PC *- T; * bypass kludgo 

PC* (PC) and not (3c); 

* = ******* start of Pilot Code •«*********««*****»**•«««»'«**»■«»**»■•»*»«**« 

t«-CODF.hi; * 

PChi*-t; * 

"=*****•• End of Pilot Code ***»•*******« *^t*******»**«***«*******»»**«*** 

*//****■"•* Start of Aito Code ***«••«*•**** >«»***»'»»*****t**»**«* *♦•**«.*»* 
nop; * allow page fault to happen before load page * 

t*CODEhi, LoadPngofoi; * 

PChi<-t, cari[SwapBytes]; * 

»//**«*«.* |;nj of /\-n;o cojo *«**,»«********«««,, 4, ***t*,tt**»*, *,,**»«*,,** 

I U *- xfBrkByte; 

gotol doCroakByte, ALU//0], MemStat *- (Normal);. 

* We dispatch tlio first inst r-iic tion by hand to insure no interrupt 

I «- Noxtl)ata[IBuf ;|; 

xfDrkByto <• f, goto[doBreakBy tox] ; 

doBreakOyte; 

NextOataf CBuf]; 
doBroakBytox : 

f <■ XfBrkByte *• (xfBrkByte) OR (40100c); 
doBreakBy toy : 

XfBrkByte < I.CY[xf BrkBy te , 2]; 

APC&APCfASK <- XfBrkByte; 

return, xfBrkByte <- ZERO; 
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* l-oaclQC load global pointer and code pointer given 

* local pointer or GIT pointer 

* constants 

* cpoffset offset from global frame base to code poiritor 

* sCsegSwappndOut trap parameter 

* sUnbound trap parameter 

* input registers 

* t mx (local frame pointer or GFT pointer) 

* xfTomp fetch pending: global frame address 

* xfTompl fetch pending: PC or EV offset 

* output registers 

* xf'l'rame mx (dest) for typeO Xfer, GTT pointer for typol(not used) 

* CODE code base register 

* GlOflAI. global base register 

* xfTemp byte program countei- or tVoffset*2 

* temps 

* xfRlink return address 

* xf tempi 

Loadgc : 

uscctask, X rr raino < T, at[L.oadGCLoc] ; * xfFrame written into LOCAL after Loadgc Call in typoO. 

r ♦ APC&APCTASK, call[Save[iLink"|; *save 1 ink in rlink 

t < (xfToiiip); * now GLOBAL 

GLOBAL <- T; 

pfetch4[MDS, IBuf]; * fetch all oi" new global overliead 

T ♦- xfTempl, task; * put new PC (or LV offset) in xfTcinp 

xfl'cmp <- T; 

lu <- GLOIIAL; 

GOTO f loadcjcnull ,alu-0] , lu »- LDF[inuf 1 , 1/ , 1] ; 

GOrO [loa<lgcswap,alu//0] , lu <- riSH[ IDu r2 , 10 ] ; 

GOTO [ShortCode, ALU/ZOJ, lu <■ fiSII[Ibuf 2 , 6 j ; • (test) Alto only 

.skip rALU = 0|, T <• IBuf2; * test for bad pointer 

T <- IGuf2 < (TBufZ) OR (lOOC); 

r «■ (LSII[10ufZ, 10 1) ^ (T); * code doesn't cross O-IK boundary 

LongCodo: 

COOEhi <- T, task; 

T '- IRufl; 

CODE t- T; 

T <- IBuf; 

xfGf iWord ^ T; 

apc&apctask<-xf Rl ink , goto[xf flet] ; 
ShortCode : 

T <- MDShi , GOTO [LongCodo]; 
loadgcnul 1 : 

T < sUnbound , go to[StashMX] ; 
loadgcswap : 

T *• sCsegSwappedOut , goto[StashMX] ; 
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* Xforg allocales now frame and pntchos links 

* input registers 

* xfcount index into entry vector 

* output rogistors 

* T, xfFrame new framo (has been initialized) 

* CODE code base register 

* xfTemp byte program counter 

* temps 
■• xfTonipl 

XrorGt: 

t <- xfcount , call [CheckXferTrapJ ; * wight use value from xfTemp 

xferg: 

task.t *■ xfcount; 

PFETCII2[C0DE,xfTcmp]; * this can page fault as 1st ref to codol 
* xfTomp <- wordpc; xfrempl <■ fsi v>'ord 

T < (IdffxfTompl, 10,10]), cal 1 [AVIocSub] ; * after this, no more Pf's! 

goto[xf erg rf , R odd] ,iu *- xfFRAHE; * new frame is in f 

PST0Rr.4[MD5,CU.0l:JAl.]; • stoi'e access! ink and return! ink 

xfTemp <- 1 sh[xf femp, 1] , goto[Xf orGo] ; 

* Alloc failed, cause trap v/ith destination as parameter 
xforg rf : 

t <- xfMX; 

xfATPreg ^ t , goto[DoAl locTi'ap ,ali,i // 0]; 

* local call, must fabricate procedure descriptor 

* xfcount lias ?*ovi2, need I'cv + l 

xfcount <- ( 1 sM| xfcount , 1]) ; m^ovkI 

task, xfcount ♦- (xfcount) - (3c); 

T <- (xfGfiVJord) AND NOT (17?c); 

t <- (xfcotint) ^ (t); ♦ ' + ' is important (don't use OR) 

XfATPreg <- t , gotoiOoA! locTrap]; 
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CheckXforTrap handlGS Xfer trapping 

constants 
sXferTrap trap parameter 

input registers 
T Xfor trap parameter 

xfXTSreg odd imp lies trap 

xftoiiip Xfer trap reason (0 = other, 

output registers 
xfXTProg Xfer trap parameter 

xfXTSreg Xfer trap reason 

UTtMP Xfer trap type 



ISC, 400 = RET) 



CheckXferTrap: 

goto[noXforTrap , r even] , xf XTSreg*-rsh[xrxrSrog , 1]| ; 
DoXforTrap; 

xfXTPrcg <- t; 

task , t *- X rtciiip ; 

xfXTSreg < t ; 

HTEMP *• sXferTrap , go to[MTrapF]; 



xfRet : 
noXf erTrap : 

return; 
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* SavoState savns state and iieros stkp 

* called from mstop and DST 

* input rogistoi's 

* xfTeinp whore to savo state 

* temp registers 

* xffl'l ink return-to address 

* xt'Teinpl sat stkp to this depth and pop till empty 

* xfTeinp2 stkp stored from here 

* 

S-aveState: * iisectask in callinrj instruction 

T <- APC«-APCrASK, callfSaveiiLinkJ; "save link in rlink 

T < (xfTemp) + (tic) ; ' 

Pstorel[MDS, LOCAL], can[sv3r/"|; 

r *- (stkp) xor T; * true stack pointer to T 

xt'TenipZ ♦- T; 

r f (XfTemp) H (10c) , task; 

Pstorel[MDS, xfTomp2"|; 

T < (xfTemp?) - (7c)"; 

xfTempl *- 10c, skip[carry]; 

xfTompl ♦- (xfTeiiipl) ^ T"+ 1; ♦ stack depth + 2 (3i(d-"/) + l) 

stkp «- xfTempl, F <- (xfTempl) - 1; 
svloop: ca11[svpopl; 

T <- (stkp) xor T; * true stack pointer to T 

T <- (AiiOnes) • T, goto[sv1oop, a1u//0]; * T ^ offset in saved stack 

apc&apctask <- xfRlink, goto[xfRot]; 



svpop: T <- (xfToinp) + T; 

Pstorel[MDS, Stack]; 
sv3/7: T <- (377c), return; 
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LoadState loads state 

input registers 

whore to load state from 

output registers 

source link 

dast linlc 
xfBrl<Byto brtjak instruction replacement 

temp registers 
xf Tempi count of stack items to bo loaded 
xfTemp2 count of stack items loaded so far 



xf Temp 



xfMY 
xfMX 



LoadState: 

T <- (xfTcmp) + (10c) ; 

Pf etctilfMDS, xfBrkByto] , cai 1 [xf Dot ] ; 

T <- (xfTemp) + (lie) ; 

l'fetcliJ[MDS,xfMX I; 

NWW «- (fiWW) and not (100000c); 

T ^ (xPTcmp) ^ (12c); 

Pretchl[MDS,xfMY], task; 

stkp ♦- RZero; 

T <^- (xPRrkByto) and (I'/c) ; 

IBuf <- T; * stack depth saved for stkp below 

xf Tempi <■ 10 c; 

T < (IDuf) - (7c); * check for 7 or 8, T *- d-7 

xfBrkByto <- rsh[xf BrkByto , 10] , skip[carry]; 

xfTcriipl ♦- (xfTempl) + f >■ 1; * stack dopth+2 (8^(d-7)H) 
xfTempZ '■ T < ZFRO, cal l[ld loop] ; 

Idloop; lu <- (xfToiiipl) - T; 

T <- (xfTcnip) ^ T, goto[ldpush, alu//0]; 
stkp < XBuf, goto[XferJ; 

Idpush: Pfotchl[HDS, Stack]; 

xfremp? < T <■ (xfTemp2) 1 I, return; '" r-eturn to Idloop 
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DoAl locTrap: 

RTEMP <• sAnocListFiiiipty, go toCMTrapF] ; 

* III yenoral, wo want to do the FreeSub after all possible Xfer pago Faults 

* can occur, but before aVI otlier traps. 

StasliMX: * StackError, UiiBound, & cSwappedOut Traps come hore 

laskJiTEMP <■ t; * RTEMP holds SD index (through FreuSub) 

t «- xfMX; 

xrOTPreg «- t; 
MTrapF: * XferTrap, AVlocTrap, & Control Traps come here 

r '■- LOCAL; 

Hi ♦- ldf[MeinStat,14, 1], call [CoiulFreoSubJ ; * load FrceFlag 

HTrap: * PageFault & WriteProtect and RETXfer traps comos to hero 

fiTEMP f- (RIEMP) 1- (xfav); 
task.t <• (RTEMP) <■ ( xf sdof f set) ; 
pfetchl[MDS,xfMX;i; 
go to[Xf er] ; 

oiipagef opPageS] ; 

HIntTest: * Back up PC by T if stopping 

goto[MIPend, In tPnnding J; 
return ; 

MlPeiid: HTFMP <- T; * PC backup *interrupL from bitblt outers here 

T *- (GetRSpec[103 j) xor (377c); • save Stkp 

MlPendx: * interrupt tlirough NOP enters here 

RTEHPl <- 342c; * RSIinage 

Stkp <- [iTEMPl, RTEMPl <- T , NoRoglLockOK; * saved Stkp 

I <- Stack <■■ (Stack) and not ( In tPeiidingll it ) ; 
RS232 ♦- T; * turn off IntPonding 

Stkp <■■ RTEMPl; 
lu <- NWW; 

lu < xCWDC, go to[nothing , alu = 0]; 

T ^ RIEMP, goto[OisablGd, aUi//0;|;^ ■' load PC backup 

IiitType <- T, goto[DoInterrupt , alu - 0]; 
PRFlags * (Zero); * clear flags so that interrupt can or in 

* its state. In case of no pc backup done in Int Idle loop 
IntType <- ( Ic) , can[PyRetl; 

1 <■ (PCFreg) T; 
• skip[al u> = 0] , xfTenip <- T; 
PCB <- (PCD) - (1c) ; 
PCF «■ xfTeinp; 
Dolnterrupt: 

T <- NWW; 

NWW <- (Zero) ; 

WW <- T, LoadPago[OpPageO]; 

lu ♦- LDF[WW, 13, 1], gotoilnterruptj; 

Di sab led; return; 
noth ing : return ; 

•//•**'«♦■"•• Start of Alio Code ******************************************** 
•Return to Nova. IBuf contains the PC at which Nova execution is to begin 
Ms lop : 

NWW <-- (NWW) or (100000c), call [SavPC inFranio] ; 
Mslopx: task,t < curren tstate; 

pf etchl[MDS, xf temp] ; 

loadpage[x fpagel] , T <- RZero; 

usectask,callp[SaveState],PC8H<-T; 

RTomp <- FFaultAdd, can[FFSl]; 

Stack «- (Stack) and not (Ic); * FFAULT «- "crash on pago fault" 

DMAh <- T <- Oc; 

SMAh <- T, loadpago[nePage]; 

T <- IBuf, gotop[.lMP]; 
•//**♦**** End of Alto Code «********»»**«*****'►************«*»♦******»**. 

*Start from Nova. T has address for LoadState, xfMX even => soft boot xfor 
MStart: LOCAL f Oc, callCFFau I tStack] ; * LSTFgo loads state from LOCAL+T 

Stack *- (Stack) or (Ic); 

lu <- XfMX, goto[LSTFgo, R odd]; * FFAULT ♦■ "trap on page fault" 
•//*•*♦*** Start of Alto Code ■►«******•*«»**«****«*******««•««***********» 

Stkp *- RZero; 

loadpagc[xfPagel] ; 

Stack&+X ♦- 2c, gotop[xfer]; 
*//******* End of Alto Code * *******»»»*»*»*****»**«**********»***^»*«****« 
*=••***** Start of Pilot Code »»****«•**•*********«***»•**»*******»****** 

loadpage[xf Pagol] ; 

Stkp <- RZero, gotop[xfer]; 

* = «*».■,*** E|,j) gf piTot Code ******«**•***«********«•**•»«**«*******»****« 

FFaultStack; RTEMP ^ FFaultAdd; 
FFSl: Stkp ♦- RTEMP, return; 
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SavPCinFrania 

input, roglstors 
PC, PCF Mosa PC 

output registers 
xfMY holds Xfer SOURCE 

LOCAL holds local base register 

tomps 
RTEMPl 



SavPCiiiFramo : 

T <- CODE; *C0DE!i1 and PChi aro equal, so wo only need to vjorry about the low word 

T <- (PCn) - (T); *15 bits, since code segmoiUs are < 32k. 

♦^******* Start of Pilot Code **«*•••*■**•***•**»•**«•*■» »«*«•«'■ *********** 

KTEMPl <- T; 

T <• PCFrcfj; 

RTEMPl <• '(l,sh[fiTEMPl,r|) h (T); "byte PC (relative to C) of the instruction to be executed 
*when this frame next runs. 
*^******* End of Pilot Code ••*****»********«***«*************•*•«****»** 

*f/**»»*** start of Alto Code «* »*«**********.********»*** *♦***»***•**»«** « 

r <- ldf[CotRSpec[127], 14,3] >• T, skip[R even]; 

RTEMPl < (Zero) T, goto[StorPC.i ; 

RTEMPl •- T, goto[StorPC]; 
■'//******" End of Alto Code *«****«*«*******»*******♦*«*»***»**********•*» 

StorPC: Pstoral[LOCAL, RTEMPl, I]; 
t «■ LOCAL; 
xI'MY *• t, return; 
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* Getl.ink fotclies control link from ylobal frame or code seg 

* input rurjisters 

* T Tab1(3 offset for link 

* CODE coclo buse registon 

* GLOBAL global base register 

* output registers 

* [(TEMP will contain link 

* temps 

* !!TEMP 

4 .. 

GetLink: 

1u *■ xfCfiV/ord , goto[ F rainol ink, R even]; *xfGfiWord 'was set up by Loadgc when this 
*frame became current, 
codoi ink: 

PrETCIil[CODF..RTF.MP], return; 
f ramel ink: 

PFETCH1[GL0DAL,RTEMP], return; 
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onpage[opF>age3]; 
MesaRtifiir/; go top[HesaRofin] , Pfotcli4[f>C:U , IRUF , AJ , al,[3/7/] 



*F_FCO 


" EFC16 










0FFCO 




<- 


(Ic) , 


gor.o[ofcr] , 


0PC00EC3001; 






OFFCl 




t- 


(2c) , 


gotoieFcr] , 


OPCODEfSOll; 






atFC2 




«- 


(3c) , 


goto[efcr] , 


OPCODFiSOZil; 






@EFC3 




<- 


(4c) , 


c(oto[efcr] , 


OPCODE[303 1; 






(atFC4 




<- 


(5c) , 


[jotofefcr] , 


0PC00EC304i; 






0EFC6 




<- 


(Gc) , 


g 1 [ () f c r j , 


OPCODEi30i51; 






HEFCO 




<~ 


(?c) , 


f)oto[ef cr-"| , 


OPCODF[306"J; 






QFFC7 




<- 


(10c) 


, s)oto[Grcr] 


0PC0DF[307i 






0FFC8 




<- 


(11c) 


, f)oto[c;rcr] 


0PC0DE[310] 






('3EFC9 




<- 


(12c) 


, (!Ot,o[Gfcrj 


0PC0DE[311] 






0EFC;l( 


): t 


<- 


(13c) 


, (joto[(;f'cr] 


OPC0DE(;3i2] 






(?EFC1 


: t 


<- 


(14c) 


, goto[efr, r] 


0PC0DE[3131 






@EFCi; 




<- 


(IGc) 


, goto[ofcr] 


OPC0DEf314' 






QEFCi; 


': I 


t. 


(16c) 


, golofofcr] 


0PC01)Ef315i 






SEFCl/ 


I: t 


<- 


(17c) 


, iioto[efcr] 


OPCODEiSIf)] 






I3EFC11 


: t 


<~ 


(20c) 


, qoto[ofcr] 


OPCODE [3 17] 






WEFCB 




4- 


CfloxtD 


aln[Iliuf] + 1 


, cfin[efcri 


OPCODE[ 


3201 



t <- (zero) - t , ca11[GetLinkl; 
t <- RTEMP, gotoisFcr]; 



*LFCl 


- LFC16 










tU.FCl 


GOTOflfcr-] 




<- xfcoiint «- 


( 4C) 


, OPCODEf321] 


0Lrr2 


GOTOHfct-'l 




<- xf count <- 


( 6C) 


, 0PC0DEf3ZZ] 


§EFC3 


GOTof ifcr] 




«- xf count < 


(IOC) 


, OPCODFf323] 


(!!LFC4 


GOTOf Ifcr] 




<- xf count <- 


(12C) 


, 0PC0nEf3Z4] 


01 EC 5 


GOTOilfcr] 




< xf'coinit *■ 


(14C) 


, OPCODEf3251 


«LrC6 


GOro[lfcr"| 




<- xfcount <- 


(16C) 


, OPCODFf326 1 


fJLFC? 


GOTOnfcr] 




<- xfcount <- 


(20C) 


, OPCODEf327] 


9LrC8 


G0TO[lFcr| 




<- xfcount <- 


(22C) . 


OPCODEf330]; 


SLFC9 


G0T0[1fcri 




< xfcount <■ 


(2tC) , 


OPCODE[331]; 


0EFC1( 


): GOTOflfcr] 




< xfcount *• 


(26C) , 


OrCODE[332]; 


0LFC1 


: GOTOilfcr] 




<• xfcount <• 


(30C) , 


OPCODE[333]; 


01 EC I 


': GOTOflfcr] 




<- xfcount <■ 


(32C) , 


0PC0DEf334]; 


t'EFCl. 


J: GOTOflfcr] 




<" xfcount <- 


(34C) , 


OPCOOEf33D]; 


f.M ICl 


): GOTOilfci] 




< xfcoiMit «- 


(36C) , 


OPCODE[336]; 


0LEC1. 


j: GOTOflfcr] 




«- xfcount *- 


(■IOC) , 


OPCODEt33/J; 


0EFC1 


J: GOTOflfcr] 




<- xfcount *- 


(42C) . 


OPCODEf340]; 



Ifcr 



@LFCB: T < Nex tDataf llUif ] , 0PC0DE[341J; 
xfcount <- (zero) i- ( t) + 1; 
xfcount <- islif xfcount, 1] , gotoflFcr]; 



xfMX ♦- zoro , cnl 1 f SnvPCinFrame]; 

loaclpagef xf pagol] ; 

xf tomp*-(400c ) ,gotof XferGt] ; *setup xftomp with 2 



Xfur trap reason 
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*SFC 

QSh'C; goto[srcr],T «- stack&-l , 0PC0DE[342]; 

s f c r ; 

xfHX <- t , c.an[SavPCiiiFraine]; 

1oadpagG[x fpagel] ; 
gotoxfer: 

goto[XrorJ; 



♦RtT 
RRF.T: 



Tt(LOCAL) + (0c) , 0P(:0DE[343];'code for XTSreg if Xfer trap 

LoadPago)[xf pagol] ; 

xf teiiip<-(l()OOc) , canp[CheckXferTrap'];*setup xftenip with 2 * trap reason in case of Xfer trap 

tasl^,pfctchl[LOCAI., xfHX, 2]; » Fetch dost inatioii link (at xf re 1 1 inl^orrsG t ) 

MomStat <- (FrooFrame); * set FrecFlag . 

loadPagG[xf pagol], T *- xfMX; 

GOrOp[Xfers], xfHY <- (OC); 



♦U-KB 
BLLKB; 



T «- NcxtData[IRur] , 0PC0DE[344]; 
callffiotLinl^l , T <- (zero) - (T) 
T »- RTF.HP, goto[PusliTP/'J; 



*PORTO 

mnmiO: r,ari[SavPCinFramo] , 0PC0DE[345"); 

r <• Stack&-1; 

task, xfteiiip <- T; 

pstorelfMDS.xfHYJ; 

task,! f (zero) h (T) h 1; 

pr«tclil[Mns,xfMX]; 

T <- xftemp , loadpat)e[x fpagel] ; 

(joto[Xfer] , xfMY *-' T; 



♦POrtTl 
0PORTI: 



po rt inz : 



Stack&H, 0PC0DE[346]; 

111 <- XfMY; 

goto[porlinz ,a1u = 0] , f ♦- Stack&-1; 

pstorel[MDS,Rzero],(;al l[P7Ret]; 

T ♦- (liZoro) I- (f) + 1; 

goto[P7Tairj,PST0REl[MDS,xfMY]; 



*KFCB 
0KFCB: 



T <- NextData[IDuf ] , ()PC0DE[347]; 

RTEMP ' T, ca11[SavPCinFraiiio], at[KFCRLoc]; 
1oadpago[xf pagol] ; 
goto[MTrap] ; 



•DESCB 
0OESCB: 



T >-■ xfGflWord, OPCOI)E[3tiO]; 
RTEMP *- T; 
n: 

T <- Nextnata[IBiif]; 
RTEMP 1 <- t; 

t <- (RTEMP) and not (177c); 
t <- ( lsh[RTLHPl,l]) H (t) + 1; 
goto[P7Tail],stack&i 1 <^ t; 



*DESCBS 
0OF_SCBS: 



T <- (STACK&-1) I- (xfgf iorrsot) , 0PC0DE[351]; 
pfetctil[MDS, RTEMP], goto[descbcoiii]; 
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*BLT 

eCLT: LP <- Oc, 0PC0DK[352]; 

t<-MDSlii; 
OLicoin: 

LPh1<-t; 

* fixup; fetch -> count + 1; store => sourcc-l, dost-l, cotinti-1 

MomStat <- B I tr ixup , cal 1 [BLTx]; * set return address to BLTloop; 

ai.Tloop: 

111 <- stackgf-l; 

goto[8LTdonft ,alii~0] , T <- stack&f-l; *got source, point to count 

stack <■ (stack) - i; *decrernent count 

pretchl[lP,RTr.MP;|; 

stnck&^l; 'point to dost 

T <^ stack8(-2; "qot dest, point to source 

pstorel[MDS,RTtMP]; 

stack <- (stack) + 1 ; • increntont source 

Stncka+2; 

Stack <- (Stack) + 1, goto[nLTint, In tPondlncj] ; '"incromant dest 
BLTx: stack&-l, return; "point to count, return to BLTloop 

BLTdone: stack&-2; 

nLTcJonox; goto| P/ Ta 11 J .MeniStat <- N'ormal; 

BLT int : 1oadpago[opPagoO] ; 

RLTstop: f *- Ic, gotop[NOPint]; 

•BLTL 

tlBLIL: T <- (Stack&-1) and (377c), 0PC0DP.[3!)3] ; 

LPdestlii »" T; 

r «- LPdGSthi < (1shrLPdostlii,10|) + (T) i 1; 

LPdostlii <- (f ixVA[LPdesthi]) OR T; 

T <- Stuck&-2, loadparjefG]; 

LPdest < T, canp[StackLPi; 

RTCMPl *■ (Zero) ; 

MemStat <- BIlLf-ixup; • fixup: source^T, dest^^, countH 

Stack&^3, call [BLTL loop] ; * point to count 

BLTLioop: 

lu <- Stack; * read count, point to source To 

T <- RTEMPl, goto[BLTLdone,a1u = 0]; 

pfotciil[LP,RTEMPJ; 

Stack ^ (Stack) - 1; * docronicnt count 

RTFMPl *- (RTLMPl) + 1; * incromont ofTsot 

pstorel[Li'desl,RTEMP ]; 

goto[BLrLint , [rrtPeniLingJ ; 

return; * goes to BLT'Lloop 

BLTLdone: 

stack&-3, goto| BLTdonex]; 

BLTL int: 

Stack&-2; 

call [BLTLbump] ; * wait for page fauLt before updating stack 

Stack&+2 , cai 1[BLTLbump] ; 

ioadpagefopPagoO] , goto [BLT stop]; 

BLTLbump: 

Stack <- (Stack) *■ (T) ^ 1; 
Stack&>l, skipfnocarry] ; 
Stack *- (Stack) + I, return; 
return; 

*BLTC 

@BLTC: T <- CODE, OPC0DE[354]; 

LP «- T; 

T <- CODEhi , GOTO[BLTcom]; 

*BLTCL 

0BLTCL: T <- sUn implemented , goto[kfcr], 0pcode[365]; 



MesaX.mc 3-Nov79 10:15:63 Page 16 



*ALLOC 
©ALLOC: 

T <- STACK&-1 , 01'CODE[356]; 

lofi(Jpage[xf|)agelJ; 

caMpCAnocSiib] , xfATProg *■ t; 

gotol alloc rf.fi odd] , 1 ii <- xfl-RAME; 
PiisliTP7: goto[l'/Tairi, stack&+X •- t; 

l'7Ret: return; 



alloc rf: 

can [SavPCinFranio] ; 

loadpage[xfr)agel'| ; 

xfATPieg <- 1sli[xfATPreg,2;i , goto[DoAnoc Trap] ; 



"FREE 
OF REE: 



T *- Stacks-!, 1oadpagc[xfpngel], 0PC0DE[3()7] ; 
canp[FreeSiib], MninStat <- ( FreoFramo) ; 



P7Tan: Ui <- MoxtIiist[IBuf 1, at[P7 I a 11 Loc] ; 
P7rai1x: NIRET; 

*Xiicrement VJakeup Disable Couiitor (Disablo Intorfiipts ) 
eiWDC: goto[P7Taii;|,xfwdc <^- (xTwdc) + 1 , OPCODE[300j; 

*Docrcmoiit Wakeiip Disable Counter (Enable Interrupts) 
0DWDC : 

task.t <- (R400) or (5Zc), 0PC0DE[36i;]; 

prGtchl[ Nova , xftenip] ; 

xfwdc <- (xfwdc) - 1; 

t < xftenip; 

NWW <- (NWW) or (t) ; 

qotofDVJDCnone, a)u = OT; * see if any inter-rupts 

UTEHP < 342c; * points to RSTmage 

T < (GetRSpoc|;i03 1) xor (377c); * read Stkp 

Stkp <- RIEMP, RTEMP <- T; 

T »- Stack <- (Stack) or (IntPondinglH t ) ; » sot IntPending 

RSZ32 <• T; 

Stkp «■ UTEMP; 

* dispatch the next instruction by hand to allow one 

* instruction without interrupt 
DWDCnono; 

T <- NextData[IBuf]; 

xfBrknyto < T, loadpagefxf Pagol]; 

T <- xfBrkByte ♦- (xfBrkByte) OR (40400c ), gotop[doB reakByteyl ; 

*STOP 

»//*♦*«««« start of Alto Code ******************** ****'|'************»'| 

eSTOP: IBuf ^ StopStopPC, goto[Mstop] , 0PC0DE[362]; 

«/y„,.,**, Eufi Qf /^]i;o Code ***.«». «****t«**«*******«*****».H«*****»*a 

,_,,«»i*,„ siarl of Pilot Code ***«**«*•****•**«»»*■.«»..«♦.►*»*** «»**».i 

OSrOP: T <- sUnimplomcnted, goto[krcr] , 0PC0Dt[3621; 

*^,,,*,*, f.|,(j of Pilot Code ****************•««*****♦•'«*********•*•< 

*CATCH 

CATCH: Ui < NextData[ IBUF] , call [P7Tai 1 ] , Opcode[363]; 
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*M[r>C - extended opcodes accessed by dispatching on alpha 
eMISC: T <- NextDatiiflBUF J, opcode[364j; 

LoadPago[xfPagGlJ, IVICMP <- T; 

gotop[.+:l], Dispatch[r!TF,MP, 14, 4]; 

OnPaijefxt'Pacjel]; 

D1sp[SASS0C]; * dispatch on second byte 

MiscTaii: iu <- NextInst[IBUF] , AT[Miscr)1sp , 20] ; 
MiscTailx: NIRET; 

* Associato - TOS contains map entry, (TOS-1) contains VP which is to got it. 
0ASSOC: r ♦- (Stack&-1), AT[MiscDi sp , 0]-; 

Caii[MapLP'J, xBuf <- T; 
ASSOC!: XMap[l-P, xDuf, O], goto[M1scTa il] ; 

* Set nags 

OStTI": T *- (Stack8,-1), AT[MiscD1sp , 1"J ; 
Caii[MapLPl, xDuf <- T; 
XMap[LP, xBuf, 0]; 

T <- LSH[xnuf3,10]; * Put n ags , , card , bi kO in left byto 

r «- xDiifl <- (RHHASK[xBun]) OR (T); • bi kl , lov/add r in low byte 
T <- (ZtllO) or not (T); * push old tiags ,'i page 

Stack&+1 <- T; * push old flags & page 

iu < (ldf[xnuf3,ll,3]) -1; * =0 if map entry - VACANT 

goto[ . i2, ALl)//0], xBuf «• (xliuf) and (70000C); * isolate now flags, ignore LogSE 

goto[ASSOCl] , xliuf <- T; * Vacant enti-y, use old flags, oldpago 
T «- (Stack) and not (170000C); '* Got old pago number 
goto[ASSOCl], xCuf <• (xBuf) or (T); ' new flags, old pago 

*Subroutine Hapl.P creates a base register pair from a virtual page number for the Hap opcodes. 
MapLP: T f- LSH[S t ack , 10] ; 

LP < T; * Set low Base 

T *■ LIIMask[Stack&-l]; 

* goto[ . I 2, R>= 0], IPhi <- T; • Sot high byte of high base 
goto[ .+Z , Alu>=0], LPhi <- T; * Sot high byto of high base 
i.Phi <- (LPhi) OR (40000C); * set bit 1 if is set. 

MiscRet: 

RETURN; * one instruction to allow I.Phi to be written 



* Road & Write Ram format; stack = 40 : 43 , , addr, (stack-l) -40: 43 , ( stack-2) =^0 : 17 , ( stack-3)=20: 37 . 
QReadRam: T <- LDr[Stack&-l, 4, 14], AT[Mi scDi sp , 2] ; " got address 

RrtMP f T; 

call[CSRuad], T <- 10; * read 20:37 

call[CSRGad], T < OC; * road 0; 17 

can[CSRoad], T *- 3C ; * read 40:43 

T *• RTEHP; 

GOTO[Miscrail], Stack «- (LSIIIStack, 14]) or (T); 

•' Subroutine CSRead roads control store for ReadRaiii opcode. 
CSRead; APCTASK&APC *- RTEMP; 

ReadCS; 

r «- CSData, Ar[Mi scD isp , 22] ; *successor of CSOp must be even 

return, Stack&+1 <- T; 

eWritoRam; T «- Stack&-1, AT[MiscO isp ,3] ; * get 40: 43, , address 

RTEMP ♦- T; 

T <- LDF[RTEMP, 0, 4J; * got 40:43 
LU <- Stack&l; * bits 0:17 

APCTASK&APC <- RTEMP; * value of apctask a don't care 

WritoCS0&2; 

LU <- Stack&l, AT[MiscDisp,24]; " bits 20:37 

APCTASK&APC <- RTEMP; * value of apctask a don't care 

WriteCSl, goto[Mi scTail ]; 

SJumpRam: NOP, AT[Mi scDi sp, 4]; * Eiller 

APCTASK&APC <- Stack&-1, Cal 1 [Mi scRet] ; 

* The notified microcode must not task until it is ready to return to emulator! 

CALL[MiscTailx], lu <- NextTnst[ IBUF] ; 

SET[I.RJBase, ADD[LSHlFT[LRJpago , 10] , 300]]; 
MC[VorsionID,0]; 

MiscTrap: 

LoadPage[0pPage3]; 
gotop[kfcr]; 

QLoadRamJ : 

T ^ (stack&-l) xor (Ic), AT[MiscDisp ,3]; 

RTEMP 1«-T, loadpagefopPagel]; * save bits, juvnp complemented 

T t- (Stack&-1) and '(377c), call p[StackLPx]; 

pfetchl[LP, RTEHP, 0], cal 1 [MiscRet]; 

LU <- (RTEMP) xor (VersionID) ; 

T *■ sUnimplemented, GOTO[MiscTrap , alu//0] ; 

T <- (GetRSpec[103]) xor (377c); 

RTEMP «- FFaultAdd; 

Stkp <- RTEMP, RTEMP «- T; 

Stack <- (Stack) and not (Ic); 

loadpage[LRJpage]; 

Stkp <- RTEMP, gotop[.+l]; 

OnPage[LRJpage]; 

LRJenter: 

t •- xfTerap «- Ic, AT[LRJBase, 0]; 

nop, AT[LRJBase, 1]; * wait for write of xfTemp to avoid bypass problem 
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LRJIoop: 

pfetclil[LP,xBuf?],r.;m[LRJIncCoiiiit], AT[LRJBaso, 2]; 

pfGtchl[l.P,xDiif J.carifi'.IUIiicCouiifJ, ATfLajBaKe, ;r|'; 

protclil[LP,xBiif r|,cal [[tJiJIiicCouiUJ, A![L!Utiaso, 4]; 

T ♦■ l(jr[xDuf2,0,14"], AT[LRJBase, 61; ' ' address 

xl!uf3 <- T, AT[L(!JBasG, (3]; 

lu - (xBuf3) XNOn (IVOOOOc), AT[LUJDa."ic , 7]; "look for m-i aclvlross = 7/77 

I <■ xllufZ, go(,o[IUuiil.oadod,alu-0], ATfLRJBaso, 1.0]; 

LU <- xBur, AT[LPJBase, 13]; 

APC&APCTASK <- xBiifa, AT[LRJBase, 11]; 

WRITECS()&2, AT[LRJBase, 14]; 

LU <- xBufl, AT[LRJBasG, 15]; 

APC&APCTASK (- xUuf3, AT[LRJBase, 16]; 

WRITECSl, AT[LRJBasa, 17]; 

T <- xfTemp, goto[LRJloop] , A![LRJBase, 20]; 

LRJIncCouiil ; 

r *- xfTenip <- (xfTentp) + 1, goto[JunipRot] , AT[LRJOase, 21]; 

RarnLoaded: 

RTfMPl, GOTO[. t-2,Rodd]. AT[LRJBasG, 12]; * odd if no jump 

APCTASKaAPC <- (xBiifl), call [ JiimpRe t ] , Ar[LRJBase, 22]; * scL TPC for return 

T *- (GHtRSpoc[103]) xor (377c), AT[LRdBase, 23J; 

RTLMP <- FTauVtAdd, AT[LRJBasG, 24]; 

Stkp < RTEMP, RTEMP <■ T, ATfLRJBase, 25]; 

Stack <- (Stack) or (Ic), AT[LnjBase, 20]; 

loadpager4 1. Ar[LR,)Baso, 27]; 

SLkp <- Rir.HP, golopCPITai 1], Ar[LRJBaso, 30]; 

Jump Ret : 

RtrURN, AT[LRJBasfi, 31]; 

OnPago[xf Paget]; 
'" The following is for b.yte code CLRDev clear all devices and timers 

SFIf QDBase,lsliift[Cl rDvPago, 10]]; 

SET[0dloc,ADD[QDBase,303]]; 
MCr.0dxL,AND@|0dloc,377]];' 
MCiQdxll,OR0[i!JOOOO,AND@[Odl 00,7400]]]; 

SET[QdrotLoc,Add[QDBase,307]]; 
MC[OdR6tL,AND0[OdrotLoc,377]]; 
MciodRo til, AND@[Od ret Loc, 7400]]; 

eCLRDev: 

RTEMP <- (lOOOOOC), AT[M iscDl sp , 4] ; 

loadPago[ClrDvPage]; 

RIEMP <- (RTEMP) OR (16C), go top[Cl ea rTime rs J ; * clear out all but memory refresh 

OnPagc[ClrDvPage]; 
ClearT imoj-s : 

LOADTIHER[RTEMP]; *Clear out all Timers except one 

NOP; 

NOP; 

NOP ; 

task ; 

RESETHEMERRS; "Clear any pending memory errors 

LU <- (RTEMP) AND (17C); *there are 15d timers to be cleared 

REEMP <- (RTEMP) ~ 1 , G0T0[C1 earTimers , ALU//Q] ; 

Qdtask: RTEMP < QdxL; *Quiesce tasks 10b to 1 

RTEMP <- (RTEMP) or (Qdxil); 

Stack&il <- QdRetL; 

Stack «■ (Stack) or (QdRetll); 
Qdloop: APC&APCTASK <- RTEMP; 
CLDrot: return; *goes to Odx 

Odx: APC&APCTASK *- stack, cal 1 [CLDret] , AT[Qdloc]; "Notify comes here. Leave task's TPC pointing at Qdxy. 
Qdxy; goto[CLDret] ; * guts hero if wakeup 

Odret: lu «- Idf [RTEMP , 0, 3] , AT[QdretLoc] ; *DevIndox points to this location 
RTEMP <- (RTEMP) - (lOOOOC), dbl goto[ZapDev i cos , Qdloop , ALU=0] ; 

ZapDovices: T <■ 177400C; 

RTEMP <- Oc; 
ZapDloop: OUTPUT[ RTEMP]; *send a to all registers of aVl devices, hopefully quiescing them 

T <■ (zero) + (T) + 1; 

goto [ZapDl cop, ALU<0]; 

Stack&-1, loadpage[4]; 

gotop[P4Tail ]; 

* Opcodes for Mesa Input/Ouput. Stack[0: 7]=XXX, Stack[10 : 13]=task no., 

* Stack[14; 17]=I/0 register number. 

OnPage[xf Paget]; 

* Opcodes for Mesa Input/Ouput. Stack[0: 7]=XXX, Stack[10 : 13]=task no., 

* Stack[14; 17]=I/0 register number. 

QINPUT: T <- Stack&-1, AT[MiscDisp ,5] ; 
goto[MiscTai 1 ] , Input[Stack] ; 

eOUTPUT: T <- Stack&-1, AT[MiscDisp , 6] ; 
goto[MiscTail] , Output [ St ac k] ; 

% 

•Checksum opcode. Stack, Stack&-l=Long pointer to end of buffer, 

* Stack&-2-negati ve count, Stack&-3=checksum. 

SChkSumL: t*-stack&-l, loadpage[lpPage2] , AT[MiscDisp, 7]; 



MesaX.mc 3-Nov-79 19:15:63 Pago 19 



1pll'ir|hR< t , ca"n [StackLP]; * convert into base ceg pair 

stack* (stack) + l , loa(Jpago[1pPage2 J j • fudge the count 

lpLowB<-( IpLowB) H; 

onpage[ 1pPage2] ; 

goto[.t2, carry]; 

goto[ClikSNext], lpllighn<-( IpllighU) -(400C) -1; * count goes backwards 

goto[ChkSNoxtl |, t<-( stack&-l)-l; 
ChkSMext; t<-{stacka -1) -1 ; « count 

ChkSNextl: goto[ChkSF.nd , alu = 0]; 

* task, pfotchlf IpLowfl , xftemp]; * got data 
pfetchlf IpLowO , xt'tonip]; * got data 

t^stack; » get current cliocksuiii 

xftemp<-(xftemp)+t; 

goto[.'-2, nocarry]; 

xt'temp*-(xf tenip)H; * end around carry 

t« 1cy[xf temp , 1]; * cycle left one place 

stack<^t; * put back on stack 

task, stack!i+l; * point stack at count 

stack<-(stack)H ; * Increment count 

lu<-xfwdc; '" check interrupts enabled 

go to[ChkSMex t , alu//0"J, lu'-nenww;* chock if interrupt:; present 

gotoiChkSNextl, alu^-0], t<-( stacks -1) -]. ; 

* interrupt!!! - copied from xf.mc @DLT 

task, t«-(2C); * pcx needs to bo decremented by 2 

nop; 

t<- ( pcxreg )-( t ) ; * since it's a MISC bylecodo 

goto[.i"2, nocarry], xftemp* t; 

mlPC*-(mlPC) (IC) : * point to old code buffer 

loadpage[iiriPage'1 I ; 

goto[ ints top] , pcf<-xrtemp; 

ChkSEiid; t<-{zero) -1; * checksum---!? 

lu«-(stack) XOR t; 

goto[.+2, alu//OJ; 

stack<-( stack ) + t ; * make chksum =0 

goto[ lpp2nxtret I ; * goto NEXTIMST, return 
% 

*Se tMaintonancePanel opcode 

* just put value on stack 

QSetMP: T <- stack&-l, loadpago[0], at[MiscDisp, 10]; 
callp[PNIP]; 
lu <- NextInst[inUF], cal 1 [MiscTai 1 x] ; 

,=*,,,„», start of Pilot Code *•*•*«»***•*«*•***•***•»«** ******* *««****** 
•Read realtime clock; Switch to task 17 to read the clock 
0HCLK: Kfemp *■ ( ReadTimeAddr) , at[Misc!)i sp , 11]; 

APC&APCTask <- RTemp, call [MiscRet] ; 

goto[MiscTai 1 ] ; 

SetTask[17]; 
RoadTirao: 

T <- ClockLo, AT[RoadTimeLoc]; 

Stack&H «- T; 

T <- Clocklli; 

Stack&+1 <- T, return; 

Setrask[0]; 
*=******* End of Pilot Code »**»*•«*•**•***«***«****«•***♦*♦*****•*««*»** 

*//******• Start of Alto Code ********************************************* 
"Read realtime clock (push[RM325] ; push[\/M430] ; chock for- overflow 
0RCLK: r »- (R-IOO) OR (30c), at[MiscDisp, 11]; 

Pfetchl[Nova, RTEMP]; 

RTEMPl ^ 325c; 

T «- Stkp; 

Stkp *- RTEHPl, RTEMPl <- T, NoReglEockOK; 

RTEMPl <r (RTEMPl) xor (377c); 

T <- 1 sh[Stack, 1], skip[R>=0]; * check for non posted overflow 
RTEMP <- (RTEMP) + 1; 

Stkp *- RTEMPl; 

Stack&+1 <- T, loadpage[7]; 

T <- RTEMP, gotop[PushTP7]; 
*//******* End of Alto Code **«*****»****«***•**«♦***«»***********«*•*•«** 

*Read printer 

SRPRINTER: T <- PRINTER, at[MiscDisp, 12]; 
Stack&+1 *- T, goto[MiscTail]; 

*Write printer 

0WPRINTER: PRINTER <- Stack&-1, goto[MiscTa il ] , at[Mi scDisp, 13] ; 
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*iritBLT 

BitBLT: Stack&-1, LoadPagG[bb|)21, Opcode[365"]; 
T <- Stack&i-l, gotoCMesaBitOLT]; 



•START 
0START 



*JRAM 
SjnAM: 



*DST 
8DST : 



*LST 
@LST: 



*LSTF 
fc)LSTF: 



LSTFgo: 



10 
tO: 

T «■ stack&-l, LoadPatjc[CFPage], Opco(le[36G'J ; 

T <- stack&-l, LoadPage[opPagG3], Opcode[366i; 

goto[preEESIO], FiTEMPl <- Ic"; *RTEMP1 is tlio' rotiini indicator (Mosa/Nova) 

T <• sUniiiiploiiiented , goto[kf cr] , 0pcode[367 | ; *Mova - flavor-ed JHPHAH 



T <- MexLDatallBuf'l , Oijcodo[370]; 

t <-■ (LOCAL) I (t) , 1oadpagc[xfpagQl]; 

tisectnsk, cal T[SaveState] , xftemp <- t; 

T < (xftoinp) + (12c).; 

Pstorel[MDS, xfHY], goto[P7Ta1 1 J; 



T <- NextData[IRuf;i, Opcodo[37i;| ; 

ca II [SavPCiriFraine] , xfTomp <- T;* NextData must be before SavoPC call 

GOTO[I.SrFgo], T <- (xfToinp); 

T *■ NuxtDataflBufJ, Opcodo[3721; 

MornStal <■ ( FrGeFramo) ; * Set FreeFlag 

T <^ (LOCAL) I- (T), LoadPago[xrpagel]; 

GOTOp[LoadState I , xfTcnip <- T; * xfTeinp is pointer to saved state. 



•WR 
OWR: 



•RR 
0RR: 



*BRK 
(DBRK: 



T *' NoxlData[lBuf] , Opcodo[374]; 
xfleinp « T , loadpago[x('pagul 1 ; 
d1spat(;li[xrtemp, 16, Z]; 

onpage[xf pagel] ; 

disp|xfwr] , T <- stack&-l; 

qoto[Mi,sc Tail ] , xfv^dc «• T , at[xfwrtab. 1] ; 

goto[MiscTai1] , xfXTSreg <- T , at[xfwrt;:(b, 2 | ; 
'* Start of Pilot Code ******************* »**«-i 

MOShi <- V , atfxfwrtab,3|; 

T >- MDSIri f- (LSIirWDSlii, 10 I) ^ (T); 

LOCALhi <- T; 

GLOCALhi *- T, goto[Mi scTa i1 1 ; 
'* End of Pilot Code ********«*******«********i 



r * NoxlDataCIUuf] , 0pcode[3?5;]; 
xftemp «• T , loadpage[xfpagel] ; 
dispatch[ xftemp , 15,3] ; 

onpage[xf pagel] ; 

LoadPage[1], dispf. xfrr]; 

gotop[Pusht] 

gotopi PushT j 

gotop[PiishTi 

gotop[PushT] 

gotop[PushT] 

gotop[PushT] 



zero , goto[kfcr] , Opcode[376]; 





<- 


xfwdc , at[xfrrtab 


11 




*- 


XfXTSreg , al[xfrrtab 


2! 




t- 


xfXTPi-cg , at[xfrrtab 


3 




♦- 


xt'ATPrcg , at[xfrrtab 


4 




<- 


xfOTProg , at[xfrrtab 


b 




- 


MDSbi , atfxf rrtab,6] 





*Cause pagefault trap - done only by fault, is not supposed to be encountered ininstruct ion stream. 
TrapFlap: T «- (PCFReg)-l, Opcode[377i; * back up PCF by one 
* RTEMP <- T, LoadPage[FauUPagel]; 

RTEMP <• T; 

PCF *- RTEMP, gotopfpreStartHemTrap]; 

*Unused opcodes on page 7 

T <- sUnimplemented, goto[kfcr], 0pcode[373]; 



* Following codes added to provided external referrences 
preEESIO: 



0nPage[opPago3]; 

RTEMP <- (1400c) ; 
RTEMP <- (RTEMP) or (105c); 
APC&APCTask ^ RTEMP; 
Return; ' goto EESIO of the EthorTask at 1505 

preStartMemTrap: RTEMP <- (6000c); 
RTEMP «- (RTEMP) or (16c); 
APC&APCTask <- RTEMP; 
Return; • goto StartMemTr.jp of the Fault at G016 



♦SUBROUTINE PNIP puts the number in T into the maintenance panel 
*It will be used after initialization is complete 
*Does not task unless called from task 
ONPAGE[0]; 

PNIP: usectask, RTEMP <■ T, at[PNIPBase, 20] ; 
T ♦- APC&APCTask, atCPNIPBaso , 17]; 
RCHT <- T, ClearMPanel, call[. + l], at[PNIPBase, 0] ; 
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i'Hloop: RTEMPl <• 4C, .it[l'NIPnase, 1] ; 

tUEMPl t- (RlEMPl)-!, (lb1goto[. II, . ,ALU<0], at.[PN tPiJaafi , 6] ; 

((TEMP t- (FiTEMP) ■ 1, at[PNIPBasi3, 7] ; 

111 *- ■|dr[RCNT,0,'1 I, cioto[PNdoi!e, AIJJ<01, at[PNIPBasfi , 16'1 ; 

skip[aUi//0], atiPNIPnase,4]; 

IncMPaiiol , iet,iii-n, at[PNlPaase , 2] ; * task 0, tasking ok 

IncMPane'l , noto[PN'loop] , at[PNTPl)aso,3 ] ; * task //O, tasking not allowed 
PNdone: APCRAPCTask <- nCNT, at[PHTPI)ase .S'j ; 

return, atfPNCPnase, 15;j; 

end; 
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i!rsert|c)0 laiig I ; 

f!OM[DASINIT;I.ANGVEnSIOM;MUl."rDIB; 

iii3ei'l[mobalDof5j; 

Tin EINovaPmulatoi-]; 

*l.ast Modified by Johiisson Octobor 9, 1979 4:48 PM, Mesa 6.0 JMPRAM 

* Modified by Clian() September 7, 19/9 4:30 PM, clean page 2 

* Modified by Cliang August 20, 1979 6:40 PM, move Timer's regs 

* Modified by Jolinssoti June 13, 1979 10:56 AM, remove at's on pugo 

* Modified by ..lohnsson June 11, 1979 11:41 AM, iiiovo MuiDiv 

* Modified by Chang May Z7, 1979 2:07 PM, nail down netJosi^ip 
« Modified by Johnsson May 9, 1979 2:28 PM 

* Modified March 27, 1979 3:28 PM by Sandman 
SriEnellaso, Ishifl [nePago, 10;|;j; 

ONPAGl"[noPage]; 
'"Dispatch base addresses 
Sf:r|;ne[»,A00[rion,.i.se,20rj: 
SET['neCY,ADDrnn[Juse,40 ]]; 
SETf iiefunc t , ADD[iioBaso", 00]] ; 
SEr(;neSilO,ADD[neBasn,100]]; 
Sr:T[neSMl,AddfneDa.so,120J]; 
Sr.T[MetnX,Add[neI!aso, 140]]; 
,Sot[ Jtab, Add| nel!ase,160]"j; 
Sel[HEXA, Addj neUase,2 2 0"l 1; 
Sot[NrXC, Add[noOaso,2401]; 
Set[MEXC, Addi;neliase,2 60]']; 

* Sot.[nePagel , 2]; 
Sotl'noPagol, 0]; 

.Set[neNoskipl.oc,Add[1shif l[ncPago, 10], 2 73]]; 
SetfiiulPago, 11] ; 

*Nova Eniiiiator 

*Assumos that PC is in the base registci- PCB and in PCF. On entry, 

*PCF points to the first (oven) byte of an instruction. Odd entry 

"points arc neSkipx, neNoslfip. Even entries are noSkip, neNoskipx. 

•fho instruction at location 1 (TUif f orRof i'l ITrap) is 

* ' 1oad|)age[0] , goto[377]', which sends control to location 377 

*on the page that did the (aboi'tod) Noxtlns t/Nex tData . Wo would 

"like the instruction at to be a Pretch4, but alas, Dl'2 addressing 

■"doesn't work, since this is the only case in which an aborted 

"instruction is not executed iiiiiiiediatoly , and tl2 is not loaded 

*in the cycle following an aborted instruction (so the displacement 

*won ' t be loaded) . 

Novanefill: gotopr.+l], Pf o tch4[PCB , IBUF , 4] , at [noBaso , 377] ; 

ONPAGE[0]; "buffer refill for Nova 

PCB < (PCB) ^ (4C); 
per <- R7ero; 
IntTesl: 

EoadPago[noPagol] ; 

lu <- MWV/, gotop[. i2,R>^0]; 

onpagef nePagol] ; 

return; "intori-upts are disabled 

goto[ . i2,AI U//0], T < (R400) or (52C); "start base register setup 
return; *iio ponding interrupts 
DMA < T.usectask; 
T i apc?(aj)ctask, task; 
intRTN <- f; 

Pfetch2[DMA,WW,0]; *fetch V/W and ACTIVE 
T <- NWW;' 

WW ^ T f ( WW ) or ( T ) ; 
T <- (ACTIVE) AND (T) ; 
C;0T0[intT8,AI.U//0], RTEMP < T; 

HWW <- (OC); *no active interrupts - 

PSrOREl[DHA,WW,0]; *store WW, TASK 

APC&APCTASK <- intRTN; 
intRET: DMA <- OC , return; *restore the base register 



nactive ones are in WW - clear NWW 



*wo are going to start an interrupt 

intT8: 

T <r INTX ^ (IC) ; *INTX will contain interrupt mask 

NWW*- (lOOOOOC); '"disable interrupts, clear NWW 

CAl.L[intT8A] , RTEMPl <- T ; •'RTEMPl will contain interrupt level index 



intTSA: 



RTEMP «- RSH[RTEMP,13, G0T0[intT9,R ODD]; '"loop to get number of the highest priority interrupt 
T <- INTX <- LSH[IHTX,1] ; 
RTEMPl «- (RTEMPl) + 1, RETURN ; 



intT9: 

WW <- (WW) AND NOT (T); ""enter int routine - save other Interrupts in WW 

PSTOREl[DMA,WW,0],task; ""store WW at 452b, TASK 

T «■ (ldr[GETRSPEC[127],14,3]); *recover the PC 

PCB <- (PCB) + (T); 

lu <- intRTN, goto[ .+2, Rodd] ; "intRTN even means we got here from neSkip, and 
♦we must increment the PC before saving it away 

PCB f- (PCB) + 1; 

T <- (R400) OR (lOOC) ; 

PST0RE1[N0VA,PCB], cal 1 [ intRET] ; "save PC at 500b, TASK 

T <- (RTEMPl) H (T) ,loadpage[nePage]; *T <- address of new PC 

gotop[ORIx]; 

ONPAGE[nePago]; 
neSkip: FF1@[17], can[eSkip]; *noSkip is even 



Nova ,rric 
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iioNosktp; l<- CNextData[IBUF], can[rieSl|, at[iiGNosk ipl.oc | ; *neNoski|) is odd 

Dispatch[RrEMP,10,3], goto[MESx]; *dispatcii 011 fir;;!. 3 bils of opcoda 

iifiSkipx: C]Oto[neSkip,] ; *noSkipx is odd 

iieMoskipx; goto[iieNoSkip] ; *neMo3kipx is even 

oSK1p: friG[l/], goto[neNoskip]; 'can't cause buffor refill 
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*SimROUTINE nesl does setup for 2Ac.r, instructions, calcinates efractlve address 
*for lAcc instructions. Rotui'ns R addi-or.s of ACO in T. 

neSl: inEMP «- T, db1()oto[no2Acc, nolAcc ,HZb1tS]; 

neZAcc: PCFflBUF] ♦- pcy[['CF[IRUF-| ,3 J ; *put MoLoad bit into bit 10 
noSlret: T <• pACO, return; *pointGr to ACO 

nelAcc: Dispatch[PCF[IBUFl,5,4]; *get Kffoctlve Address - dispatch on I.X.and disp.O (16 wavl 
f)isp[tn;<0], T ^ rhiiiaskiPCF[IOUF,|J; - 

InXO; ETAd <- T, goto[neSlret] , AT[nQlnX,01; 'Patje 
InXl: EfAd «- T, goto[neSlrot J , Ar[neInX , 1] ; 

InX2: T *■ ( id f [G ETRSPEC[ 12 7] . 15 , 2] ) + (T), AT[neTnX,21; 'PC rel^rtivo 

T «- (PCB) H (T), yoto[[nXO]; 
InX3; T »- (PCF[IBUF]) or (177400C), goto[InX2j. AT[nuInX,3]; 

lnX4: T <- (AC2) + (T), qotoflnXO], ATl'iielnX, 4] ; *AC2 rolativo 
Tnx5: T *- (PCF[HiUF]) or (177400C), goto[InX4], AT[neInX,5]; 

InX6: r <- (AC3) >■ (T), goto[InX01. AT[neTnX,6]; 'AC3 rolative 
[nx/: r <- (PCF[T(iUF]) or (177400C), goto[ [11X6] , ATf'noInX ,7] ; 

InXtO: Protclil[Nova,EfAd],goto[neSlretl, A'l [noIiiX , 10] ; * Pago indii-nct 
InXll: Pretclii[Nova,EfAd ;|,goto[nt)Slrot], AT[noInX, ll]; 

[nXl2: T < ( idri.GFTRSPECT 127] , 15 , 2] ) i- (T), ATf netnX , 12) ; *PC relative indirect 

T <- (PCB) 1 ( T), goto[IiiX10T; 
XnX13: T ^ (PCF[r[UJF]) or (177400C), goto[ tnXlZ] , A ! [noTiiX , J3 | ; 

InX14: T *- (AC2) > (T), goto[IriX10] , Al[iieInX , 14] ; *AC2 rolativo indirect 
Inxl6: T <■- (PCFflBUF]) or {177400C), goto[ InX14]', AT(noliiX , 10] ; 

IriXlO: T ^ (AC3) 1 (F), gotorinXlO], A I [neInX , 16] ; *AC3 roiativo indirect 
fnxl/: T <- (PCFilBUF]) or (1/7400C), goto[InX16], Ar[nf;XnX , 1 7 ] ; 
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NESx: Disp[noIDO], lUEMP <- ( 1 df [R TEMP , 13 , 2]) + (T); 

*Main instruction dispatch 

nelDO 

nelDl 

MeID2 

neID3 

nuIDn 

nelDO 

noID6 

neID7 



LDA: 



Dispatch[frrEMP,16,2"l, goto[Jdisp], AT[neID,0]; •iumps 

STKP <- ntEMP, goto[LDA|, Ar[neID,l]; Mda 

STKP <- RTEMP, goto[STAl, AT[neXD,2]; *sta 

lu <- 1df[PCF[inUf ],3,1], goto[XOPA'|, AT[noID,3]; *oxLendGd ops 

T <- ACO, goto[gutC:Y"l, Ar[noI0,4]; *arith(ACO) 

T <- ACl, gotoigotCY], Ar[RoID,5]; *arith{ACl) 

T <- AC2, goto[getCY], AT[rioID,6j; *arith(AC2) 

T <■ AC3, goto[getCYJ, AFinelD,'/]; *arith(AC3) 

Stack&-1, E'F1@[17], task; 'Since fetches to the stack jncretnent STKP 

r <- CfAd; 

Pf'ctc hi [Nova, Stack], go to[noMoskip] ; 



STA: r <- EfAd; 

PStorel[Nova,Stack'l, cal 1 [xnPG2RET'J ; 
ri0[l/ I, goto[MGNoskipJ; 

•Jiiip , JSR, ISZ ,DSZ - enter v/ith dispatch on function pending 
Jdisp: Dispijiiip], T <- ETAd; 

Jiiip: Protch4[ Nova, TRUI'l, Ar[Jtab,0]; 

Jiiipx: PCf3 f- T, T <- T, cnn[Jtsk]; *hypass kliidgo 

T <- CMuxtData[IDI)F], can[n(:!Sl], at[ncBn~se, 15] ; *cannot cause IBUF refill (but must be 
"in an odd location, since it Is tlie return fi-oni IntTost (via Jtsk). 

DispatchfRIEMP, 10,3], got o[ NESx]; 

'SUBROUTINE ,]tsk Updates PCB and PCF, then tests for interrupts 
Jtsk: PCB <- lsh[PCB,l]; 

PCF <- PCB, PCB <- T; 

loadpaqefO] ; 

PCB '^ (PCB) and not (3C), goto[In tTost]; 

JSR: . PFotch'l[Nova, IBUF], AT[Jtab,l]; 

T <- PCB, can[GPCl]; *recover the PC 

AC 3 <- T; 

T •■■ EfAd, goto[Jfflpx]; 

ISZ: Pf'etch1[Nova, xBuf], AT[Jtab,2]; 

EfAd *■ lcy[Efad,1], ca ri[neXsotup] ; 
L)B[xBur] <- (l)B[xGuf]) 1- 1, goto[r)SZx]; 

DSZ: Prctch4[Nova, xBuf], AT[Jtab,3]; 

EfAd <^ lcy[Erad,4|, cal 1 [noXsetup]; 

DB[xfiuf] * (DB[xBuf]) - 1; 
DSZx: FF10[17], FREEZERESULT ; *advance PC, let DB be written 

PStoro4[Nova, xBuf], db lgoto[neSkip , neNoskip, ALU--0]; 

'Set up DB to point to the registoi' addressed by the low two bits of Ei'Ad. 
*Cari with: E <- icylEfAd, 4], call [neXsotup] ; 
neXsetup: DB *■ EfAd; 

BBFBx, return; *advance DB to DBX 



GPCl: 



(ldf[GETnSPEC[127],14,3]) + (T) +1, return; 
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*7 Accumulator instructions. ACS is 
getCV: Dispatcli[PCF|inUF"l , 15 , 2] ; 
Disp[neCYO], 'Stkp <- lUfiMP; 



*c!ispatch on cai ry Molt! of instruction 
•load intlox and dispatch 



neCYO 



Dispatch[PC("[ICUF],10,3], AT[neCY,0] 
Disp[nQFutictO"| , iu <- Carry; 
Dispatcli[PCF[lBUrj,10,3], AT[neCY,l] 
Disp[noFunct6 ] , lu <- 0.C ; 
Di spa tcli[PCF[IBUF], 10,3], AT[noCY,2] 
DisplnoFurictOJ, hi ♦• lOOOOOc; 
Disp;vtch[PCF[.[BUF].10,3], AlineCY.a] 



•Gin <■ CARRY (in bit of Carry) 
*C1n <■ 
*Cin <- 1 



*C1ii 



CARRY' 



D1sp[neFunctO.], iu <■ (Carry) xor (lOOOOOc); 



neFunctO: T «- (Zoro) xnor (T), Ub lgoto[n tcl , ii tcO , ALU<{)] , Ai[iieFurict ,0] ; •com 

noKuiictl: T*- (Z«ro) - (T), dbi()oto[ tcl, tcO , AUXO] , ATf noFunc t , 1 J ; *nog 

noFunctZ: dbigo to[ntcl , n tcO , ALU<0] , AT[noFnnc t , 2 J ; *riu)v 

noFinict3: T< (Zero) + (T) +1, db1yoto[tcl , tcO , A! U<0 | , A Tfnefuiict , 3] : *inc 

iieFuMct4: T t- (Stack) - (T) -1, dblyo to[tcl , tcO, AL.IKO] , A ri'iieFuisct , '1] ; *adc 

neFuncLf); T <- (Stack) ■ (T) , dbl t]oto[tcl , tcO, ALU<0 1 , Al( neFuiict , 6'J ; "sub 

iieFuncte; T <- (Stack) + (T), db lgoLo[tcl , tcO, ALU<0 ] , AT[hoFimic t , 8] ; *add 

noFunct?; T *- (Stack) and (T), db l!jol:o[n tcl , ntcO , ALU<0], AT[noFurc t , 7 J; 'and 

*AI-UCY has no effect on carry - dispatch on shift fiold 
iitcO: Dispatch|PCF[i"llUF],13,2], cioto[CoutO]; 
ritcl: Dispatch[PCF( ;i[JUF],13,2J, goto[Coutl|; 

*AbUCY complements incoming carry - dispatch on shift field 

tcO: Dispalch[PCF[n)UF], 13,2 1, db1goto[Cout 1 , CoutO , Car ry ] ; *incoi.ring carry was 

tcl: D ispatch[PCF[lDLIF] , 13, 2] , dblgoto[CoutOx , Coutlx , Carry] ; 'incoming carry was 1 

CoutO: Disp[neSHOO"|, Resuit <- T; 
Coutl: Disp[iieSM10], Result <- T; 



CoutOx: DispL'noSllOO], Result 
Coutlx: ()isp[noSH10J, Result 



"Shift dispatch for final carry - 

neSllOO: PCF[IBUF], lu <• T, dbl goto[no1oadO , loadO, Rodd] , AT[noSll0,0]; 

T < Result '^ 1sli[Resu1t,l], AT[noSII0,l 

T <- Result *- rsh[ Result, 1], AT[neSIIO, 



neSIIOl 
noSIIOZ 
noSII03 



I 
Result «' lcy[Result,10], AT[noSH0,3], goto[fcO]; *swap 



1, dbUjoto[fcl , fcO,R<0]; 
.lbigoto[ fc I, fcO, Rodd i 



"no shift 
"left shift 
•riglit shift 



•Shift dispatch for final carry = 1 



neSlllO 
noSIIll 
iieSlllZ 



PCF[IDUF], Ui « T, dblgoto[noloadl, 1oadl, Rodd], ATfnGSIIl.O]; *no shift 

T t 'Result <- (lsh[Result, 1]) i 1, AT| rieSlll , 1] , db1goLo[ f cl , f cO, R<0] ; *left shift 

Result < rcy[Rosul t, 1], AT[neSlll, 2] ; * r ight shift 

T <■ Result <- (Result) or (lOOOOOC)', dblgo to[ f cl , fcO , R<0] ; 

T <■ Result <- lcy[Resul t,10], AT[MeSlll, 3] , goto[fcl]; 'swap 



fcO: PCF[IBUF], lu <• T, dblgo to[nol oadO , loadO, Rodd]; *test NoLoad, set to test ResuU = 

fcl: PCF[1BUF], lu- 1, db I goto[ nu I oad 1 , loadl, Rodd]; 



noloadO: T <- Stack, dblgoto[cZrZ , cZrN , ALU=0] ; *T 

loadO: Carry <- OC , dblgoto[cZrZ, cZ rN, A11J = 0] ; 



original ACD 



no loadl : 
loadl: Carry 



T <- Stack, dblgoto[cNrZ,cNrN,ALU=0]; 
lOOOOOC, dblgoto[cNrZ,cNrN,ALU=0]; 



cZrZ 
cZrH 
cNrZ 
cNrN 

tsk: 



PCr[IOUF] <- (PCF[TnUF]) and (160000C), goto[tsk]; 

PCF[IBUF] <- (PCF[IDUF]) and (60000C), goto[tsk]; 

PCFflBUF] < (PCF[in'JF]) and (120000C), goto[tskj; 

PCF[IBUF] <- (PCF[ICUF]) and (20000C), goto[tsk]; 

Stack <- r, calH'noS^]; »TASK at last 

lu <- ldf[PCF[lBUF],15,2], db lgolo[ t s f , tsb , Rodd] ; 



noS2: PCF[IBUF] <- 1 df [PCF[ IBUF] , , 3] , return; 

"Test skip, point PCF at first byte of next instruction (cannot cause refill) 

tsf: dblgoto[neSkip,neNoskip,ALU-^0], Fl@[17]; 

tsb: dblgoto[neSkipx,neNoskipx,ALU//0], Fi@[17]; 
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MOVA AUGMENTED It^STRUCTIOM SET 

• 60000 CYCLE Lci't Rotate 

• 61000 DIR Disable Interrupts 

• 6100 ; EIR Enable IntemiptG 

• 6100? BRI Branch and returii from interrupt 

• 61003 RCLK Road Clock 

• 61004 SIO Start I/O 

• 6100,'i BLT Block Transfcp 

• 61006 niKS Block Store 

• 61007 **SIT Start Interval Timer - returns -1 

' 61010 JMPRAM Jump to RAM - only works if ACl ^ '!Z0 (outers Mesa) 

• 61011 RORAH Read RAM - returns -1 

• 61012 WRTRAH Write RAM - NOP 

• 01013 DIRS Disable interrupts and skip if on 

• 61014 VERS Version - AGO <- 40000C 

• 61015 '*DREAD Double-word road (altoll only) 

• 61016 **DWR1TE Double-word write (altoll only) 

• 61017 **OEXCH Double-word exchange (altoll only) 

• 610;M) MUL Unsigned Multiply 

• 61021 DIV Unsigned Divide 

• 61022 **D1AGM0SE1 Diagnostic (altoll only) 
« 610Z3 •*DIAGN0SE2 Diagnostic (altoll only) 
> 61024 BITDLT Bit Block Transfer 

• 61400 JSRII Jump to subroutine, double indirect, pc relative 

• 05000 JSRIS Jump to subi'outine, double indirect, acZ relative 

• 67000 CONVERT Scan conversion of characters 

• NOTE: instructions with ** are not impioniented , and will bomb out if executed 

*Dispatch to 8 main extended opcodes. Enter with ALU "- Inst rue t ion . 3 . 

XOPA: Dispatch[PCF[inUF"J,4,3], go to|"xnUNIMI'TRAP , ALU//0| ; *70000 - 77777 are unimpl ementod 
Disp[Cyclel, T <■ EfAd; 
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n.eft cyclo ACO by ins t[12-;l5d] , or by ACl If count Is 0. 

Cycle: RTEMP <- 17C, go to[ . e3 , ALU//0] , AT[fJEXA , 0] ; "cycle - Tost EfAd for 

T <- ACl;*cycle by ACl If count = 
EfAd <- T; 
KfAd <- (F.fad) -1; 
rnCMP *■ (RfCMP) - (T); 
CycleCoiitrol <- EfAd, TASK; 
r <- Rf[ACO]; 

CycloControl *- RTEMP, goto[ . +2 , R<0_1 ; 
T ♦- (WrA[ACO]) or (T); 
ACO <-• T, F10[r;], goto[ncMoskip]; 

*Opcodos 61000 ■ 610Z4 

XQPl: 111 <- ldf[PCF[TGUF], 13,1], AT[NEXA,1]; *t05t bit lid 

DISPATCH[PCFriBUFJ,14,4], D[)LGOTO[xiiXAlA , xnXAil) , ALU = | ; "dispfltchon bits 12-15d 
xnXAlA: DISP[[)nr|; 
xnXAlB: D[SP[MUL]; 

•Opcode 62000 - unused 

•XI1XA2: GOTO[xnUNIHPTnAP], Ar[NEXA,2] ; 

*Opcodo 63000 - unusod 

*xnXA3: COTO[ xnUMIMPTRAP'J , AT[NEXA,3] ; 

•JSRII - 64'tOO 

JSnif: PFETCin [Nova, EfAd] , ATfNEXA , 4] ; 

xnJSRI: can[xnPG2RET]; 

T <• EfAd; 

PFETCIIl[Novn,EfAd], call[xnPG2RET] ; 

T «- EfAd, goto[JSR]; 

*JSRIS - 65000 

JSRXS: PFETCIIl[Nova,EfAd],COTO[xiiJSRl], AI[NEXA,G]; 

"Opcode GGOOO - unused 

*xnXA6; GOTO[xnlJNIMPTRAPJ , AT[NEXA,G] ; 
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•CfJNVERT ■■ Opcode 670xx 
*Uogisters : 

* acO: destination word address niiniis NWRDS 

• ac2 + disp points to two word block; 

• word NWRDS -- number of words per scan lino (< -lOOc) 

• word 1 dba -- iirinua dcirt bit addr mod ;?0c 

* ac3i pointer to word xh of the cliaracter descriptor block 

*Character Descriptor Dlock: 

* words 0: xh-1 bit map for character 

• word xh: xw -- (2*widtli) i- 1, or ( 2*psoudoc(iar) if extension roqiiired 

* word xh + 1: lid,,xh -- (scan iiiies to skip) ,,( height of bit r.iap) 

*NOTE; This instruction iooks like an 0AC2 instruction, so at entry tfAd contains the first word 

■"of the 2-word block above (i.e. NWRDS). 

*Tho high halves of base registers SMA and DMA arc assumed to be sot up. 

CONVERT: T <- Idf [PCF[ IDUI^] , 10 , 10] , AT[Nn:XA, 7] ; * displacement 

T <- (AC2) + (T) I- 1; 

PFF.TCHl[Nova,ACl'|, caVI [AC3 toT'| ; "'fetcli dba 

l'FETCHl[Nova,RTEMP] ; •fetch sel f- rol ati vo pointer to xw 
Tf-AC0,1ASK; 

DMA <- T, FF1Q[17]; *setup for later, advance PC 

T<RrEMP; *sol f-re1at ivo pointer to xw 
T<-AC3< (AC3)>(T) + 1; *add pointer 
PFETCIIl[Wova,xnXlli; *fetch hd,,xh 

ACl <- T ♦- (ACl) AND (17C), TASK; *mask dba 

RTEMP <- 160; 
RIEHP < (RTEMP) - (T); 
T' ErAd,CALL[FIXDMA]; *DHA*-DMA ->■ (hd*xnNWRDS) 

FIXDMA: xnXII< ( xnXII ) ^(17 7'^00C); 

DMA<-(DMA) ^(T),GOTO[DMA^ixod,ALU<0'l; *when done, DMA will point to the first dest word 
xnPG2RET: RETURN; 

DMAfixed; AC3*-( AC3 ) - ( 2C) ; "back up AC3 to the start of the block (AC3 <• AC3 • xh -2) 

xnXH*'T< (l,DF[xnXII, 10, 10])-!; "also decrement xh 
T<(AC3) •(T)-1,TASK; 
SMA<-T; 

xnCVLOOP: SHA<-T<"(SMA) + 1; 

PFETClil[Nova,AC3], task; "fetch source 

XBI <- pX(3uf; 

xnXII< (xnXII)-l,GOTO[xnCNVEND,R<0]: »test count 

PFETCII4[nMA,xnuf ,0]; *fotch dest 

T <- (Idfl DMA,16,2]), task; "use Stkp to index xlluf 

XBI <- (Xfil) + (T)"; 

Stkp <• XBt; 

C.ycl eCoiit rol < ACl; 

T «- (RF[AC3]), task; "source contribution to first dest word 

Stack <- (Stack) or (T); 

CycloCoiitrol <- RTEMP, gotoT . +2 , R> = 0] ; 

PStore4[DHA, xBuf ,0 |, (joto[CVXx]; "source exhausted 

T ^ WrA[AC3]; *sourcc coiil libut i on to second dest word 

XRI <^ (XBI) ^ 1, gotolxnCVX, ALU=0]; 'if it is zero, we are done 

lu <- Idfl'XBI , 1G,2 I ; "check whether we are still in the quadword 

Stkp < XBI, QOto[doSingloWord, ALU=OJ; 

Stack <- (Stack) or (T), goto[xnC\/x J ; 'OR the second Dest word 

doSingleWord: Pfetchl[DMA, xnDEST, 1]; "fetch second dest word 
can[xnPG2RET]; 

xnDEST < (xnDEST) or (T); "so xnDEST will be written 
Pstorol[DMA, xnDEST, l],call[xnPG2RET]; *UGH 
nop; "allocation constraint 

xnCVX: PSto ro4[DMA , xBuf , 0] ; 'store buffer 
CVXx; T <- EfAd; *get NWRDS 

DMA<(DMA)+(T), GOTO[ xnCVLOOP] ; 

xnCNVEND: AC3 «- RSH[AC3 , 1] , dblgo to[NeSkipx , neNoskipx , Rodd] ; 
AC3toT: T <- AC3, return; 



xnCVLOOP: SMA<-T«-(SMA) H; 

PFETCHl[Hova,AC3],CALL[xnPG2RET]; *fetch source 

xnXH<(xnXin -l,GOTO[xnCNVEND,R<0]; *test count 

PFETCII1[DMA, xnDEST, 0]; *fetch destO 

CycleCentrol <- ACl, task; 

T *- RF[AC3]; "source contribution to first dest word 

xnDEST «- (xnDEST) or (T); 

Pstorel[DMA, . xnDEST, 0]; 

CycleControl < RTEMP, goto[ , +2 , R>=0] ; 

T *- EfAd, goto[CVXx]; 

T <- WFA[AC3]; "source contribution to second dest word 

goto[xnCVX, ALU=0]; 

Pfotchl[DMA, xnDEST, 1], can[xnPG2RET]; *fetch second dest word 

xnDEST <- (xnDEST) or (t); 

Pstorel[DMA, xnDEST, 1]; 
xnCVX: T^-EfAd; '■"get NWRDS 
CVXx: OMA<(DMA)H(T), GOTO[xnCVLOOP]; 

xnCNVEND: AC3 *- RSH[AC3,1], dblgoto[NeSkipx,noNoskipx , Rodd] ; 

AC3toT: T ♦- AC3, return; 

X 
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"KxtGiiiJed Opcodes with no (I isp laccmen t or parameter 

DIR: NWW i- (MWW) OR ( 100000C) , goto[Comr!e t] , ATfNrXD.O] ; *c)ir - OUJOO 

£IR: T <- (R-lOO) OR (5ZC) , go to[£IFIconi j , AT[fJEXB,l] ; *eir • OiOOl 

Elficom: IM l::TCIIl[Nova ,WW | , CAI.L[xil('G2RE T] ; 

T <- WW; ' 

MWW <• (K'WV/) Ofl ( T) ; 

rjWW ♦- (NWW) AND NOT (lOOOOOC); 

l'CF[IBUF], dblfjotofEIRz.BRIy.Rodd]; 
I.TRz; T «- PCB,' cal 1[GPC1]; "EIR must tost for interrupts NOW. We simulate JMP .+1 

r <- T, goto[JMP]; 

RRI: T <- (R400) OR (52C), goto[EIRcoiii] , AT[NEXD,2] ; "bri - 61002 

BRTy: T <- {R400) OR (lOOC); "fetch PC from location GOO 
BRIx; PFErClll[Nova,EfAd], CALl.[xnPG2RET] ; 
T >-■ EfAd, goto[JMPi; 

RCLK: T <- (R-lOO) OR (30C), Ar[NEXn,3] ; »rc1k - 61003 

PI-ETCIIl[Nova,AC01; 
* RTEMP <-■ (326C),TASK; *Cet RTCl.OW from task lO's R's 

RTEMP <- (35!:iC) .TASK; *Cet RTCLOW from task 10 'S R's 

STKP «• RTEMP; 

T <- LDF[STACK,1, 12],GOTO[xnNRDOVF,R>=0]; 

*tho low bits overfiowod, but tho display 
*hudn't (jotton around to updating the higl\ bits yet. 
ACO <- (ACO)H; 

xnNRDOVF: ACl «■ T, goto[neNoskip] , FF10[17] ; 

SIO: T <- ACO, loadpugofopPago3'J, AT[NEXB,4|; *sio 

RIEMPl <- Oc, gotop[prcFESIO]; *RTEMPl-0 means return to Nova 
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■"DLT and BI.KS 

*slow straight forward bit with no checking for sourco and dost overlap 

• registers: 

• racO address of first source v/ord - I (Bl-T), or data to be stored (DLKS) 

• racl address of last destination word 

• rac2 unused 

• rac3 nerjativo word count 

■HiU - 01005 

Bl.T: ACO ^ T *■ (AGO) +1, AT[NF.XB,5]; *bn 

ULTx: PI"trtchl[Nova, RTEMP], call [xiiPG2RrT.l ; *fetch source 

Bloop: lu <■ AC3; 

AC3 <- T <- (AC3) + 1. goto[BLdone, ALU=0]; "test count ^^ and increment it 

T «- (ACl) + (T), loadpage[0] ; "form destination address 

Pstorol[Nova,inEMP;), cal 1 pfln tTest] ; *thQ return link must be odd, so that if an interrupt 
"occurs from IntTost, the saved PC will not be incromontod. . . 

PCF[IBUF], dblgoto[BLTxx,nLKSxx,Rodd I, at[nohJnso , 7] ; *thus, this location must be odd 
UlTxx: AGO <• T <- (ACO^) + 1, gotoCBLTx',) ; 
BLKSxx; T «■ ACO, goto[BLKSxi; 

BLdone: ACS <- OC, goto[ComRot] ; 

*BLdoMo: AC3 <- OC , gotoiSTAq]; "STAq refills IBUF and advances PC 

niLKS - 61006 

DLKS: r <- ACO, AT[NEXD,6]; 'biks 

BLKSx: RTEMP <- T, goto[Dloop]; 

■"SIT - eioo/ 

"SIT: GOTO[xiiUliIMPTRAP], Ar[NEXB,7;j ; *sit 

JMPRAM: T <- 20c , ATffJEXB , 10] ; *jmprani - 61010 
lu <- (rhmaskfACl]) xor (T) ; 
T <- ACO, goto[NEtoMosa,alu-0 I ; 
GOTO[xnUHiMPTRAP I ; 

NEtoMesa: 

CI-OBALhi <■ OC; *Initializc some Mesa Emulator registers 

lOCALhi <- Oc; 

MEMSTAF ^ Oc; 

xfXTSReg <- Oc; 

MOS <- Oc; 

xfMX <- Ic; 

TickCount <■ 3c; 

xfTeinp <• T, l-oadPago[7] ; 

HDShi ♦ Oc, gotop[MStart]; 

ComRet: GOTO[neNoskip ] , FFie[17]; "common ending for instructions which advances PC 

HOIiAM: ACO «- (/EliO) - 1 , GOTO[ConiRe t | , AT[NEXB,11]; "i-draw - GlOll 

WRTRAM: GOTO[ComRot ] , AT[NEXB,1Z]; *wrtram - 61012 (nop) 

*dirs - 61013 

DIRS: FF1@[17 ],AT[NFXB,13] ; 

NWW <- (NWW) or (lOOOOOC), dblgoto[neNoskip , neSki p , R<0] ; 

VERS: ACO <- (40000c), GOTn[ComRe t ] , AT[NEXB,14] ; "vers - 61014 

"DREAD: GOTO[ xnUNIMPTRAP] , AT[NEXB,lfi]; *dread 

"DWRITE: GOTO[xnUNIMPTRAPJ , AT[NEXB , 16] ; *dwrito 

*DEXCII: GOTO[xnUNIMPTRAP], AT[NEXB,17]; *dexch 
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*AC0,,AC1 <- (ACl * AC2) + (AGO) 

MUL: loadpafjo[riuIPage], AlfMEXCO]; *mul 

cnnprMuUiply I, T «- IGC; 

G0T0[iieMoskipJ,r-Flf!)[17]; 

OMPAGE[mdPnnG]; 

*S teps ; 

•1 test next mpr bit (ACl[t/]). rshfACl] 

*2 add t to ACO 

*3 tost carry 

♦4 test ACOfl"/], rsli[AC01 

•5 or one into high bit of ACl 

*6 or one into high bit of ACO 

*7 tost count 

*8 contini.ie 

*9 finish 

Multiply: 

USECVA5K ,RCNT <- T; 

T (- APC&APCTASK ; 

riCKMPl <- T, cnliiUHULS]; *save return address 

UMULl: dbigotoLUMUL4a,UHUL2,Revon] , ACl ♦- rsh[ACl,l] ; 

UMUL4a: dbigoto[UMUI..7,UMULGa, r even] , ACO < rsh[ACO,l] ; 

UMUL2: n'Ho[UMUL31 , ACO <- (ACO) + (T) ; 
UMUL3: dh!goto[UMUI '!b,UMUl.4c,nocarry] ; 

UMUL4b: db lgoto[UHUL7 , UMUl 5a , r even] , ACO <- rsh|;ACO,l] ; 

UMUL7; dblgoto[UMULO,UHUl.B, R<0] , RCNT ^ (RCHT) - 1 ; 
UMULOa: noto[UHUL7] , ACl <- (ACl) or (100000c) ; 

IJHUL4C: db1goto[UMUI.6,UMUl.6b,r even] , ACO <• i-sh[AC0,l] ; 

UMUl.5: yoto[UMUl7] , ACO *- (ACO) or (100000c) ; 
UMUL5b; golo[UMUL6] , ACl <- (ACl) or (100000c) ; 



UMIJL9: APC&APCTASK <- RTtMPl; 
UMUL8: T <- AC2 , RKTURH; 
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*ACO, ,AC1/AC2, Quotiant in /\Ci, remainder in AGO 

DIV: loaclpagol'iiKlPaiio],! <- AC?, AT[NEXC,1'1; 

ra1'lp[6iv ido ], LI) «- (ACO) - (T); *div 

FF10[l/],lu <- RCNT,dl)1(joto[noSk1p,neNoski|),Rev{3n I; *A<.lvai;ce PC 

ONPAGE[iiidPnrjo]; 
Divide: db1goto[noDiv, doDiv, carry] , fiCNT <■ 17C; 
noDlv: return; "PCNT odd means no skip 

doDiv: iisectask; 

r <■ apc&apctask; 
HTEMPl < T; *save link 
T <- AC2, caTI[UDIVenter]; 

lu '■ rcy[CaiTy , 1] ; *1oop RETURNS to hero 

ACO ^ (ACO) - (T), db1ooto[UDIVlt.,UDIVir,Al.U<0]; *l«st flag 

UDIVlt: ACl <■■ (ish[ACl, 1]) + 1, dblnoto[UDiy3t ,UDIV3f , IKO] ; *no need to tost carry, quot <- 1 
UDlVlf: dbigoto[UDIVZt,UniV2f .carry']; 'subtract ok, test cari-y 

l)DlV2t: ACl <■ (lsh[ACl,l]) ^■ .1, dblgo to[Uni.V3 1 , UDIV3f , fKO] ; 'put a one in the quotient 

UDTVZf: ACO <- (ACO) 1 (T); *no carry - undo subtraction 

DDTVanter: ACl <- ( isli[ACl, 1] ) , db1cjOto[UDIV3 1 ,l)DrV3f , R<0] ; *put a zero hi the quotient 

UDIV3t: RCNT *- (RCNT) -1, go to[UDi:Vdonel , R<0]; 

ACO *■■ (ish[ACO,l]) + 1, db1ooto[UDlV'tt,UDIV4f ,R<0]; 

UlHV3r: RCNT < (RCNT) -1, go to[LiDIVdono2 , R<0]; 

ACO <- ( lsh[ACO,l]) , dli1goto|;UDtV4t,UDIV4f ,R<OJ; 

IJDIV4t: Carry <- (Carry) or (Ic), return; *set flag 
UI)IV4f: Carry <- (Cari'y) and not (Ic), return; *cloar flag 

UDIVdonel: AI'C&APCTask •■■ RTEMPl, goto[UDi:V4f ]; 

UUlVdonoZ: APC&APCTask <- RTEMPl, gotoi;UIHV4f ]; ' 

ONPAGEfnePage]; 
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"D I AG NOSE t; 
•xnXCOZ: 



•DTAGM0SE2: 
'xnXC03: 



G0rO[xiiUNIMPTRAPj, AT[NF,XC,2] ; *d iarjfios«l 



GOTO[xnUNIMPTRAP], AT[NEX(;,3] ; "iliayiiosoZ 



BITBLT; T *• Novali, LoadPage[bb|)2] , AT[MEXC,4]; 
AC3 <- T, gotop[NovaBitI)LT;i; 



•xnXCOS 
•xnXCOG 
»xnXC07 
"xnXClO 
"xnXCll 
•xnXC12 
*xnXC13 
•xnXC14 
'xnXC15 
'XI1XCI6 
•XI1XCI7 



GOTO[ 

Goroi 
Gorof 

GO! or 

GOTOf 
GOTOf 
GO I Of 
GOTOf 
GOTOf 
GOTOf 
GOTOf 



xnUNTMPTRAP'l 

xnUNIMPTPAP] 

xiiUHTHPIRAP I 

xnUNIMPTI!AP 

xiiUNIMPTriAP 

xnUfJIMPTPAP 

xnUNIMPTRAP 

xiiUNIMPTRAP 

xnUNIMPTRAP j 

xnUNIMPTRAP] 

XiiUNIMPTRAPI 



ATfMEXCe] 
ATfNEXC.B] 
ATfNEXCV] 
ATfNEXC, 10] 
ATfNEXC.ll] 
ATfNEXC, 12] 
ArfNEXC,13| 
ATfNEXC, 14] 
ATfNEXC, 15] 
ATfNEXC, 16] 
ATfNEXC, 17] 



• savo tho current pc + 1 in memory location 627b 

* and jump to location pointed to by location 530b 

xnUNIMPTRAP; 

T <■ ( ldffGETRSPECtl2/],14,3]) H; 

PCI! <^- (PCO) + T ; 

T <- (R400) OR (I27C) ; 

lASK , PSIOREII Nova.PCII] ; 

T *- (R4 00) OR ( 130C) ; 

T <~ (UirfPCFf 1BUF],3,5]) + (T) , gotofBRIx]; 



inst[3,7; 



END; 
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Standard preamble for xxxOccup ied .mc files produced by Micro!) 
lasL uditQd April 23, 1979 3:41 PM 

Xnsert[DOLunf| J; 

MoMi das In i t ; LaiigVe rs ion ; Mill t DIB ; 
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[U)ILTIN[ insert, 24]; 
insert[dO I ang] ; 
NOMIDASINIT; 
lANGVKKSION; 
MULTDIO; 

insert[G1oba1Defs]; *task and page assignments 

TITLF.[0vor1ay]; 

*1ast edit by Chang, August 13, 1979 3:07 PM, RDC Integration 

* edit by Johnsson, Juno 15, 1970 3:24 PM, new registers 

*odit by Chang, Juno 4, 1979 2:09 PM, for MIDAS Overlay booting 
'•edit by Chang, May 27, 1979 6:39 PM, for Overlay booting 
♦edit by Johnsson, May 15, 1979 3:27 PM, PMIP fix 
*cdit by Chang, May 10, 1979 8:31 AM, add now Ethernet ID 
"edit by Sandman, April 6, 1979 3:50 PM 

"■Modified March 6, 1979 by CPT. Added fault handling 

PV[rl inkO ,34]; 'subroutine return link 

'Registers for other sections of initialization 
RV[xCNT,20]; *usod everywhere 
RV[DevIndex,21]; *used in Devicelnit 
RVf contemp,Z2 ] ; *usod in Devicelnit 
RViini tr0,40;|; *used in DiskOoot 
RVf initrl,41 ]; *usod in DiskBoot 
RVf in itr2 ,42]; "used in DiskBoot 
RV| initr3,43]; 'used in DiskBoot 
RV[ErrorCnt,44]; 'used in DiskBoot 
R\/[ErrorCountx,45 I ; "used in DiskBoot 
RV|;teiiip,51]; \ 

INSF.RT[DMdefs]; 

SolTask[0]; 

* MC[NoxtbiskAddr,237"|; 
RV[BootDiskAddr,37 |; *RDC Integration 

MC[CSMomStart ,4000]; * temporary memory starting address for CS imago 

RV[MemAddr,61]; * current address for CS image 

RV[VersionIO,52J; 

"Maintenance Panel Normal Operation Codes: 
MC[StartDiskBoot , 1/0]; *120d 
MC[SystemRunning,202]; *130d 

"■Maintenance Panel Failure Codes: 
MC[NotFnoughMemory ,145] ; *101d 
MC[OndMap, 146]; *l02d 
MCLNoOiskStatus, 171]; •12 Id 
MC[BadBoot,172]; •"122d 

SETTASK[0]; 

OnPage[ Ini tPage] ; 

BootSecondBlock: LoadPage[LoadCSPagc] ; 

gotop[GootSBlock]; 

OnPnge[LoadCSPago]; 
BootSniock: xCNT < FFaultAdd; 

stkp^xCNT; 

LU <- (stack) and ( 40000c) ; *check Midas Present bit in FFAIJLT 

goto[BootLoader, alu//0]; 

MemAddr <- CSHemStart; 

• Skip VersionID at location CSMemStart (4000) 
" ClearMPanel; *********************** remove this word after testing 

* xCNT<-MoxtDiskAddr; 

* stkpt-xCNT; 

* t<-stack; *get next disk address from rog 237 
t ^ BootDiskAddr; *sot next disk address fi-om reg 37 
xCNT<-t; 

DMA<-( 1000c) ; *dcb address 

pstorel[DMA,xCNT,IOCBDiskAdr!],call[LoadCSRet];*next disk address 

readnextblock: 

* IncMPanel ; *********************** remove this word after testing 
ErrorCnt<-(10c) ; 

sotdcb: 

Devlndex «- (zero) - 1 ; 

initrO <- Oc; 

initrl<-0c; 

init r2<-0c; 

pstore2[DMA,initrO,IOCBNoxt],can[LoadCSRet]; 

init r3*-0c ; 

t*-(R400)or(120c); 

pstore4[Nova, initr0],call[LoadCSRet];*c1ear disk communication cells 

xCNT«-(7.ero) ; *disk status 

pstorel[DMA,xC(JT,IOCBStatus],call[LoadCSRet]; 

xCNT*-(44000c) ; "disk command 

pstorel[DMA,xCNT,IOCBCommand],call[LoadCSRet]; 

xCNT<-(1400c) ; *header address 

pstorel[DMA,xCNT,IOCBHeaderPointer],call[LoadCSRet]; 

xCNT^(2000c); *label address 

pstorel[DMA,xCNT,IOCBLabelPo inter] , call [LoadCSRet]; 

xCNT<-(3000c) ; *data address 

ps to rol[DMA,xCNT,IOCBDataPo inter], call [LoadCSRet]; 

* start the disk 
startdisk: 
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iiiitrl'-lOOOc; * word 521 - • lOCB poiritor 

in itr3<-(zero) - 1; « word 023 - -1 to force a seek 

t«-(R400) H(120c) : * store into 520-523 (words and 2 uro zero) 

pstoru4[Nova, initrO], call [LoadCSRet]; *dcb address 

* wait for completion 
HrrorCountx <- 20c; 

SetDW: Dovlndex *-■ (zoro)-l; *1oop count for status wait 
WaitDisk; Pretcltl[DMA, xCNT, 1]; *fotch status word at 10011) 

T <- 17C, can[LoadCSRet]; 

111 «■ (1dr[xCNT,4,.1]) xor (T) ; 

Ooto[Statusllere,ALlJ-o;i, iu «■ Ulf[xCHT, 10 , 10] ; 

Uevlndox <- (Dovlndex)-l ; 

()Ot.o[WaitDisk,ALU//o;j; 

l-rrorCountx < ( ErrorCountx) -1; 

(joto[SotDW,ALU> = 0'J; 

LoadPacje[InitPage] ; 

T <- NobiskStatus, gotop[InitFai 1] ; *tiinod out waiting for disk to store status 

StatusHere: dblgo to[NoFau1tSta tus , tncECount , ALU-0] , FRCEZERFSULT; 

NoFau itStatus: nop; 
ca1 1 [loadmi] ; 
goto[ roadnox tblock J ; 

IncECount: 

ErrorCnt <- (CrrorCn t ) -1 ; 

goto[Fa ilDoot, ALU < 0]; *bad header, try again 

goto[nootStnock] ; 

Fail Boot: Loaril'age[Iiri LPage J ; 

F <- BadBoot, gotopflni tFail ]; 

OnPanG[Ini tPage] ; 
LoadOthorCS: l.oadPagc[LoadCSPagol ; 

xCHT <- FFaultAdd, gotop[.+i;|; 

OnPage[LoadCSPago]; 
Etkp f- xCNT; 

lU <- (stack) and (40000c); * check for Midas Present 
goto[MidasPauso , alu//0]; 
l-Phi ♦- zero; 
IP <• CSMemStart; 
RTEMPl < zero; * Jump flag 
LoadPaocfLfiJPagn I; 
gotop[l.n5enter ] ; 

loadmi : 

usoctask; 

t<-apc&apctask; 

rl ink0< t; 

coiitoiMp*-(3400c) ; *lasl address ^ 1 of disk data 
nextmi: 

t<^ con tcmp<-( con temp ) - 1 ; 

p fete hi [Nova, init r2] ,cal 1 [LoadCSRetJ ; 

t< contomp< (conteiM])) • 1; 

pfotchl[Nova, initrO],can[LoadCSRet]; 

t <- ldf|;initr2,0,14 I; 

ill it r3»-t ; 

t< con temp <- (cent emp)-l; 

pfotchl[Nova,initri;],can[LoadCSRet]; 

MomAddr «- t ♦• (MemAddr) i 1;* copy into memory 

ps torell Nova, ini t r2] .call [LoadCSRot] ; *wri le into memory 

MemAddr <- t <- (MemAddr) i- 1;* copy into memory 

pstorel[Nova,initrO] , ca 1 i [LoadCSRet] ; 'wri le into memory 

MemAddr < t <- (MemAddr) i- 1;* copy into memory 

ps torel[Nova, init rlj , call [LoadCSRet] ; *wri te into memory 

lu^( initr3)xnor(170000c) ; *look for m- i address = 7777 

go to [Trans ferDone , al u-0 | ; 

t< Idf [con temp, 7 , 10]; *1ook for mem address - 3001 

goto [nextmi , a1u//0] ; 

t*-(2000c) ; 

pfetchl[ No va.xCNT], call [LoadCSRet]; 

nop; 

pstorel[nMA,xCNT,IOCDDiskAdr!], call [ LoadCSRet] ;*next disk address 

apc&apctask<-rl inkO; 
LoadCSRet: 

Return; 

TransferDone: t«-(2000c); 

pfotclil[Nova,co!Vteinp], call [LoadCSRet] ; *get next sector address 

* xCNT *• NextDiskAddr; 

• stkpf-xCNT; 

T <- (con temp) ; 

• stack <- (T); * save the next disk address 
BootDiskAddr f- (T); * save the next disk address 
GOTO[BootLoader]; 

Boot Loader: LoadPage[InitPage] ; 

gotop[DiskBoot]; 

MidasPause: NWW <- (100000c), ; 

MidasWait: Breakpoint, goto[MidasPause]; 

.*««**««*«***«» added the following for overlay, will bo over-written later 

OnPage[LRJPage]; 
Set[LRJBase,Add[lshift[LRJPage,10],300]]; 
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LRJen ter: 

t ♦- xfTemp <- Ic, Al[LRJBasQ, 0]; 

nop, AT[LnOBaso, 1];* wait for writo of xfTemp to avoid bypass problem 
LRJIoop; 

pf etchl[i.P , xBiif 2"j , cal 1 [LRJIncCoimt] , AT[LRJBase, 2] ; 

pfetchl[l.P,xnur],call[I.RJIncCoiiiit], AT[LRJ[!a.sG, 3;]; 

pfetchl[I.P,xniifii,cal 1 [LRJIiicCoiint] , AT[LRJBaso, 4); 

r '- 1dr[xBuf2,0,14 J, AT[LRJ0a5G, 5J; * address 

xBiifS <- T, AT[LnJBaso, 6]; 

III <- (xBufS) XNOR (170000c), at[LRJ[!aso, 7]; *1ook for rn-1 address = 7777 

T «■ xBiif2, ((oto[RaiiiLoaded,alii = 0], AT[LRJBase, lO]; 

UJ <- xUijf, AT[l.ii)Base, 13"|; 

APC&APCTASK <- xBuf3, AT[LRJBaso, 11]; 

WRITECS0&2, AT[I..RJBnso, 141; 

LU «- xBufl, ATJLRJBuso, 15'|; 

APC&APCTASK <- xBiir3, AT[LRJBasG, 16]; 

WRITECSl, ATfLRJBasG, 17]; 

T t- xfTomp, goto[LRJloop], AT[LRJBase, 20]; 

LRJIncCoun t : 

T <• XfTemp <- (xfTemp) + 1, goto[.ninipRe t] , Ar[l.njQase, 21]; 

RaiiiLoadod: 

RTEMPl, G0T0[.+2,Rodd], AT[LRJBaso, 12]; * odd if no jump 

APCTASK&APC ^- (xBufl), ca I J [ JumpRe t ] , AT[I.RJBase, ?.?.];' SGt IPC for roturn 

r <- (GetRSpGc[103]) xor (377c), AT[LRJBaso, 23]; 

RTEMP ^ l-l-aultAdd, AT[lRJBase, 24]; 

Stkp <- RTEMP, RTEMP ♦• T, AT[LRJBase, 25]; 

Stacl< <- (Stack) or (Ic), AT[LRJBase, 26]; 

* ioadpagel^], AT[l.RJBase, 27 j; 

* St.kp <- RTKHP, gotop[P4Tail], Ar[I.RJBase. 30J; 

nop, ATfl.RJBasG, 27] ; ****"'****w i1 I be over- written Intor 

nop, goto[.], AT^LRJBase, 30] ; •********w i n be over--wri t tun lator 

Jump Rot ; 

RfTURN, AT[IRJBaso, 31]; 

***«««*«,»«**»** following are for linkage, will bo over-writton later 

OnPago[opPage3] ; 
Kfcr: goto[.], at[kFCRLoc]; 

P7Tail: goto[.], a t[P7Tai 1 Loc] ; 

OnPann[xfPagel]; 
Loadgc: goto[.], at[l-oa(lgcl oc] ; 

Onl'age[nePage] ; 
neNoskip: goto[.], at[noNosk ipLoc]; 
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* File RDC.mc 

* Last edit hy Jim Fraiuleen October 14, 1979 0:12 PM 

* This vorsioii pie'loaUs 18 wor'ds for writo operations. 

InsertrUdcDef s] ; 

TirLE[lHg idOiskConlroner]; 

SET TASK[RdcTask]; *currontly lib = 9(1 

ON PAGE[l(dcPago]; 

RdSectorWakeup : 

ZComo hero every time we get a sector wakeup. Wo get a sector wakeup at tlio end of every data sector. 1383 sectors go by every second, s 

**o we get a wakeup every 723 microseconds, Wlien wo wako up, look and see what wo wore doing when wo wont to sleep so wo can pick up whor 

**e we loft off. Vie were doing one of the following: 

Waiting for a now command (State Idle); 

Waiting for a drive to come ready (State Dri veChange) ; 

Waiting for a seek to complete (State SeokWait); 

Waiting for a sector to come around on the disk to execute a command (State SectorWait ) ; 

Waiting for a transfer operation to complete so wo can chock for- erroi-s. (State OataTransf or) .% 

*DiskStatus has just been road from the Controller. First, update CurruntSoctor so wo know what sector is about to go by. Then go do som 

**othing depending on what State wo are in. 

LU<-(RdcDiskStatus) AND ( RdcSectorO) ; *rest for sector 0. 

RdcCurrontSector<-(RdcCurrontSector) + l, *Upd.ito current disk sector-. 

Skip[ALU-=0]; *Skip if not sector 0. 

RdcCurren tSectort DC ; 

Dispatcli[RdcState, 15,3J; *Get State for dispatch 

T'RdcCSBptr, *Load displacement to fotch lOCBptr from CSO. 

Disp[.il']; *Dispatch on stato pointer 

RdcSectorT iineOutCount < ( RdcSoctorT iiiioOutCoun t )- 1 , 

Gofol RdSectorWait;], AT[Rdrl)a30, RdcSoc to rWa it ! .| ; 
I U<-(RdcDiskStatus) AND ( RdcSookComplote) , 'Check seek compluto 

CoTo[RdSeokWai tj, AT[RdcBase, RdcSeekWa it ! ] ; 
LU<(RdcDiskStatus) AND (RdcDevSelOK) , *Check device selected 

GoToriidDriveChangel |, ATfRdcOase, RdcDri veChango ! 1; 
T«-l.SII[RdcStato, 11], '*Prepare State for FndCoinmand . 

Goro[Rd[;ndTransror |, Ai[Rdcliaso, RdcData I'ransf or ! J; 

Rdldle: 

*Coine here when we are in the Idle state. V/c are just hanging around waiting for ThoFaco to chain a new TOCB onto the CSB. rhi;Face is ou 

**r link to TlioOu tsidoWorld . When FheOuts ideWorl d wants to execute a disk command, lio calls TheFaco. TheFaco then constJ-ucts an Input Out 

**put Control Block (lOCB) atid chains it onto the Controller Status Clock (CSB). When we wake up, we look to see if there is anything to 

**do. 

*When wo arrive here, T points to the CSB. Load lOCBptr and Synch from the first two words of the CSB. Look to see if Synch is negative. . 

*"Xf so, TheOulsideWorld wants us to quit processing lOCBs. 

Pfetch2[RdcZoroBase, RdcIOCBpt r'| , "Fetch lOCFJptr and Synch from CSB. 

AT['Rdcl!ase, Rdcldle!]; 
LU'RdcSyncti, *Test Synch 

Goro[RdIdlol,R>=0]; 

'•Well, it's time for a break. TheFaco says to knock it off for a while and not process any more lOCBs until he gets things figured out. 
**Wo could got out of here quicker if wo didn't have to chock Synch. But we must chock it every time, oven if there is nothing to do. The 
**tace will tiot be satisfied unless we say "I Got it" by sotting bit of the controller word in the CSB. 
r< (RdcCSBptr)+(RdcCSBcont rol lor) ; *Set displacement to store Synch. 

Ps torol[RdcZeroBaso , RdcSynch]; *Storo <0 in csb . controller. 
GoTo[RdClearWakeupj; 

Rdldlel: 

*Como here if Synch is not negative. We might have woik do. Test lOCBptr to sec if it is non-zero. 

r<.Rdc[OCBptr; *T points to lOCB. 

Rdldle? : 

*Come here from Chain when a command has been processed, and see if there is another lOCB waiting. 

RdcState* Rdcldle, 

GoTo[RdNew;[OCB,ALU//0 J; *If tOCB is waiting 
NOP; "Placement constraint 

•Well, shoot, there is nothing for us to do this time. Oh well! Look at the Synch word and see if any Mesa processes need to be notified 
**about this sector wakeup. If not, skip the call to Doint to save time. We need to split as fast as possible and give the machine to som 
**eone else. 
RdEndSoctorWakoup : 

"Synch could be used to schedule Mesa processes that want to know about this sector wakeup. Sinco Pilot is not currently using this feat 
•*ure, this has boon is disabled to save space. The following comments could be removed to enable the feature for Pilot. If DOLang would 
** allow more than one ComChar, wo could make tliis a comditional assembly!! 
%*********Start of Pilot Sector Wakeup Code***-*"*"""* *'**"*•***'*"* 
T*-(RdcCSBptr) + (RdcCSBsynch) ; 

Pfetchl[Rdc7.oroBase, RdcSectorSynchj; *Fetch Synch word from CSB. 
LU<-RdcSectorSynch; 

Goro[RdClearWakeup,ALU = 0]; '*If Synch is zero. 
r«-(RdcSectorSynch) OR ( RdcAllowTask) , 
Call[RdTasklfNotZoro]; 

LoadPage[0]; 

CallP[DoInti, *Set NWW and IntPunding; uses registers 0,1. 

lOStrobe; *Terminate the wakeup 
"Continue here after the next sector wakeup. 
Input[RdcDiskStatus, RdcStatus], "Road status register from controller. 

GoTo[RdSectorWakeup]; 

%***«*""**End of Pilot Sector Wakeup Code**'"**'**i"*** 
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*!********Start of MicrocodeDri ver code'*'"'*'****'*'********'*'*'"*'*'*'"* 

T^(RdcCSBptr)+(RdcCSBsynch) ; 

Pfetchl[RdcZeroBase, RdqSectorSynch]; "Fetch Synch word from CSB. 

RdcTemp«-RdcWakeupReg; '*Load address of NV/W. 

T<-(GetRspoc[103]) XOR (377C); "Save Stkp, right side up. 

Stkp«-RdcTemp, 

RdcTompt-T; "Set Stkp to NWW, save old Stkp in Temp 

T*-RdcSectorSynch; "Get bits to OR into NWW. 

Stack«-('&tack) OR (T); "Set NWW. 
Stkp<-(RdcTemp) , "Set DriveChange to zero 

Call[RdTaskIfNotZero]; 
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*! ********End of MicrocodeDrivcr Code**""**************'"* "'•'*** 

RdCloarVlakeiip: 

"TornnriatG the wakeiip and go to sleop until the next, sector wakciip. 

Call[RdStrobo]; 

♦Continue hero nt tlio noxt sector wakeup. 

lnput[(idcDiskStatus, RdcStatus], *Rcad status registor from controller. 
GoTo[RdSectorWakoup'| ; 

HdNowIOCB: 

•Boy, Wow!! We have something to do! Time's a wast'n! When tho Controller turns on our wakoup latch, we are only 06 bytes from the secto 

**r mark. Wo only have GO microseconds after sector vokeup to got ready and send a command to the Controller. No telling how much time ha 

**s already gone by. We didn't get our wakeup call until we v.ioro l,ho highest priority task. And tiie evil DiskCont roller runs at a higher 

'"♦priority task level. We have already executed 9 instructions since wakoup. If the header shuv/s up before we send the command, we will g 

**et lOAtton and Servicel.ate . And you know what that moans! We will have to wait one more disk revolution. And TheOuts ideWorld will not b 

**o pleased! 

*A rule of the game is that we have to task to give up control of the CPU after every dozen or so microinstructions. We must task twice 

**bofore we can got our command ready, and once more before we send the header data to the Controller. And we don't know when we will get 

** scheduled again after a task. The evil DisplayCont rol 1 er is a glutton for CIH) cylcos. If v.'o don't task often enough, the display will 

"flicker. And the OutsideWorld will really bo pissed! At tho same time, the sector mark is less than 60 microseconds away. So we better 

'•hurry! Try to avoid branches that cause burps, and beat it down to State DataTransf er. 

*l and lOCRptr point to the new lOCH. Fetch the now disk address from the first two words of the lOCB into NewDi-iveCyl inder and NewlleadSe 

•*ctor. Tlie next two instructions calculate a pointer to CSB. d iskAddress[of the drive we are about to access]. 

Pfetch2[RdcZeroDasc, RdcNewDriveCyl inder] ; 

T< (RdcCSBptr) I (RdcCSBd iskAddress) , "T points to CSB. diskAddre3s[drivc 0]. 

Call[RdTaskIfNot"/ero]; 

r<-(LDI"[!!dcHowDriveCylinder,0,2]) i-T; *T points to CSIl . diskAddress[curront drive]. 

■•Tboro was our first task switch after 12 inst I'uctions . Here wo go again. 
I.U<-( RdcDiskAddressPt r) XOR T; "Test for drive change since last command. 
lidcDiskAddressPtr'-T, 'Update pointer to CSB , di skAddressf drive] . 

Skip[AIU=0]; *If no drive change. 

HdcState< RdcDriveChango; "New drive this wakeup. 

*lelch tho current cylinder addi'oss of tho drive we are about to reference fi-om the CSB. This will be set to -1 if we must recalibrate. 
Pfotclil[Rdc?.eroBaso, RdcCurrentCyl inder]; 

•Send the drive and head to the controller. Drive is in tho two low order bits of DiskAddressPt r. Di skAddressPt r points to CSB. di skAddres 

**s|'drive]. Head is in NowiieadSector. 

T< (tDF[RdcNewlleadSoctor,0, 10 ]) ; "Head is in bits 14-17 

T<(LSII| RdcDiskAddressPtr,4]) OR T; 'Drive is in bits 12 13 

Itdc lomp< T; 

Ou tpu t( Rdc romp , RdcDri ve/llead] ; *Send drive and head to controller, 

•See if the drive has changed since the last command. The State will be Idle (an oven state) or DriveChange (an odd state). 

LU<-(RdcState), 

•This is our first obstacle. If tho drive has changed since the last coimiiand, wo will have to wait for the Controller to toll us the now 

**drive is ready. 

Goro[l!dDriyeCliange,R Odd]; *If drive change 

RdDr i ve Ready : 

•The drive has not changed. See if we need to recalibrate. 

LU<-( RdcCurrentCyl inder) , 

Skip[R>=0]; *If recal not required. 

•Well, this is obstacle lumdier two. Tho drive must be rocalibrnted before vre can. execute any commands. This means we must move tho disk 
••arm back to track 0. Seek errors cause this to happen. Gofo Recal and continue at TostForSeek when the drive has been recalibrated. If 

!io seek is reguirod after recal ibrat ion , continue at SeekCompl ete after the heads have settled. 

LU<-(RdcDiskStatus) AND (RdcTrackO), 

GoTo[RdRecal]; 

•The drive is ready, arid we we do not need to recalibrate. See if we need to seek. We will not need to seek if the disk address is for o 

••ne of tho fixed heads or if CurrentCyl inder is equal to NowCylinder. Test for the same cylinder first to save time. 

T<-ltdcNewCylinder<'(l.DF[RdcNewDriveCyl inder, 10, 10]) ; *Remove head address from NewHeadCyl inder. 

RdTestForSeek: 

LU< (RdcCurrentCyl inder) -T; *Test for different cylinder. 

T<-(RdcIOCBptr) + (RdcIOCBnext) , *Prepareto fetch. 

Goro[RdSo6kComplete,Al.U=0]; *Tf CurrentCyl inder = NewCyl inder 

•Here we are stuck at tho last obstacle. It looks like we will have to seek before we can execute a command. Go move the disk arm to the 
•■■'new cylinder and continue at SeekComplete when tho heads have settled at tho new cylinder. 
IU<(LDF[ndcNewHeadSoctor,4, 1]), *Test for fixed heads. 
GoTo[RdSeek]; 

RdSeekComplete: 

•We made it past the last obstacle. The disk arm is sitting at the right cylinder. Get the command ready to send to the Controller. 

■"Fetch the rest of the data we need from the next four words of the lOCB: NextlOCB points to the noxt lOCB in the chain, if any (Note: we 

»* must load this again at RdChain); Command is tbo command to execute; LongPointer and LongPointerl point to the data for the transfer o 

**peration. Note that this operation destroys registers that were being used for other things during the seek. If the command is seek on! 

'"•y, ,we are through with this lOCB. 

Pfetch4[RdcZeroBase, RdcNoxtlOCB] ; •T^( RdcIOCBptr)+( RdcIOCDnext ) . 

RdcCommand<-(RdcCommand) AND NOT ( RdcSeekBits) , 

Call[RdTaskIfNotZero]; 
Output[RdcZeroBase, RdcMemBuf f Adr]; '*Set MemBufAdr to zero. 

•Continue after our second task switch after 14 Instructions. This was the first reasonable place to task. 
LU<-LDF[RdcCommand, 10, 10]; *Header, label, and data commands 

RdcCommand<-(RdcCommand) OR ( RdcAl lowWake) , 

GoTo[RdEndCommand,ALU=0]; *If seek only 

"Continue if command is not seek only. 

*~*«**"**Start of Pilot Zodo*******"*********"****'"'*******''*** 

"Got LongPointer ready to point to the data area in memory. If BP[0:23] is a base pointer, BP[0;7] is in bits 0-7, and BP[0:7]-H is in b 

**its 8-15. 

RdcLongPointerl*-T<-LSH[ Rdc LongPointer 1,10]; 

RdcLongPointerl«-(RSH[RdcLongPointerl,10]) 1 1; 
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MdcLongPo1nterl<-(LI)F[RdcLori(jPoiiit,Grl,:lO,lO"l) OR T; 
•™********tnd or Pilot codo*"*"'*************"************"'"* 

LlJ<-(ruicCoinniand) AMD (RdcDataWr itoOrVerIfy ) ; 
T<RdcI0C13ptr, *SGt displacement for Ketch. 

Goro[RdPrepareSectorWait,ALU=0]; "IT not writo or vopify. 

*ContiiHiG If write or vsrif^^ operation. Praload the Controller buffer with the he.ider and label data and 161) words of data. 
IOFetch20[Rdc;.oroBase,RdcOiilput J, *Send tiio header data. 

Call[RdTaskirMot7.ero]; 
T*OC; *Set displacement for lOfetch. , 

IOFotch20[RdcLongPo1nter,RdcOutput"|; *lransfor ?.0 data words to the Controller buffer. 

Rdl'ropareSec torWait : 

RdcSectorTinieOutCount<-RdcSectorTiiiiuOutv;akoUps; 
RdSectorWait ; 

•Hero we are ready to send a command to the Controller. Look to see if the sector coming up is the one we want to access. CuriontSector 
•*is what we think the next sector will be. 

T<-LDF[RdcNewlleadSector, 10,10], *T '^ soctor specified by command, 

GoTo[RdSoctorTimeOut', ALU^o;]; *ir sector time out 
LU<-(RdcCurrentSector) XOR T; 
RdcState<-RdcOatarransfer, 

GoTo[Rdl)ataTransfer,AliJ = I; *Go for it!! 

"Can you believe it? Wo hurried all the way down here, and this isn't even the soctor we need to access. Go back to sleep until the next 
**sector wnkoup. Then continue at .SoctorV/ait above, and chock that soctor. 
RdcState'-RdcSectorWait , 

CoTo[RdFndSoctorWakcup;|; "Go back to sleep. 

RdOa tafransf or: 

•Hero we are at the right soctor. Send the command to the Controller. 

Output[RdcCommand, RdcDovOpj; *Send the Command. 

*llapo we made it on time! \ilc won't know until we try to road the header. If wo get lOAtten here because we missed the sector, we will sti 

*''ri get the header wakeup, so we plunge ahead. Funo in at Readlleader for- the next exciting episode! 

LU<-(RdcCommand) AMD ( RdcDataWr i teOrVeri fy ) ; 
l>RdcIOCBptr, *SqI displacement for Fetch. 

GoToiRdRuadHoador,AL.U//0]; 'If write or verify. 

"Continue if not write or verify. We have not yet loaded the header and label data into the Controller buffer. 

Output[Rdc7.Gronase, RdcMemBuf f Adr | ; "Sot MemlUifAdr to zero. 

NOP; "Two instructions after Output before memory instruction. 

LU' (RdcCoriimand) AND (RdcWr itelleader) ; "Tost for writing headers 

IOFetch20[RdcZeroUasc,RdcOutput;i, 'Send the header data. 

Skip[ALU=0]; '"If not writing headers. 

*ir we are wr i t ing headers , wo are done until the next sector wakeup. At that time, we will chock to see if we got any errors, lerminate 
■"'this wakeup and go to sleep. 
GoTo[RdEndSecto I Wakeup]; 

GoTo[RriReadlloader]; *This extra instruction is for placement constraint. 

RdReadHeader : 

•We have done all we can for now. Terminate this wakeup and go to sleep until the header field on the disk shows up. The header Meld con 

** tains the address of the next sector. 

Call[RdStrobc]; "Terminate the wakeup. 

"Continue here when the Controller has read the header field from the disk into its buffer. Transfer the header information from the Cent 
"roller's buffer into the lOCR. This is the exciting moment, ladies and gentlemen! We will soon know if we got our command ready in tim 
* * e . 
T«-OC, "'Set MemBuffAdr to zero. 

CallCRdPrimeldata]; "Start the Controller. 

T<-RdcIOCDptr; "Set base for lOStore 
Rdclemp* RdcTemp; "Interlock for Primeldata 

tOStordCRdc/eroBase, Rdclnput], "Read the header data into the first four words of the IOCS. 

"Well, we blew it! We got lOAtten from the Controller, and that means trouble! Our command was probably too late. Sigh! 

GoTo( RdlloaderlOAtten, lOAtten]; 

"Well, we made it past the header. We win part one. But the game is not over. The bits are flying fast and furiously now. The SA'IOOO tran 
**sfors seven million bits per second. Will wo catch them all as the disk fly by? Or will tho evil Di splayControl 1 er steal our CPU cycles 
** and cause ServiceLato or RateError? Tune in at tndTransfer for tho exciting conclusion!! 

LU*-(RdcCommaMd) AND (RdcLabelReadOrVerify) ; "For test at llndLabel 

LUt-(RdcComffland) AND ( RdcDataWri teOrVerify ) , 

GoTo[RdEndLabel ,ALU=0]; "If no label read or verify 

"Come hero to read or verify label. Issue lOStrobo to cancel tho Header field wakeup and go to sleep. 
Call[RdStrobe]; "Terminate the wakeup. 

"Continue at tho first label field wakeup. Read the first four label words into lOCB words 4 through 7. Issue lOStrobe to tei-minate the 

"* wakeup and go to sleep. 

T«-6C, "Set MemBuffAdr to 6. 

Can[RdPrimeIdata]; "Start tho Controller 

T«-(RdcIOCBptr) + (RdcIOCBlabel ); "Set base for lOStoro. 
RdcTemp*-RdcTemp; "Interlock for Primeldata 

I0Store4[RdcZoroBase, Rdclnput], "Read the first four label words into lOCB locations 4 through 7. 

Call [RdStrobe] ; "Terminate the wakeup. 

"Continue after the second label field wakeup. Read the second four label words into lOCB locations lOB through t3B. 
r«-(RdcI0CBptr) + (RdcI0CB1abel+4); 

I0Store4[RdcZeroDase, Rdclnput], "Read the next four words of the label into lOCB locations 10-13B. 
Skip[NoAtti3n]; "If not lOAtten 

•Come here if we have lOAtten due to a label error. Set bit in State to remember we got a label error so we can post LabelError in the 
""status. We will continue to get data wakeups , so we plunge ahead. 
RdcState«-(RdcState) OR (RdcBitO); 
LU<-(RdcCommand) AND (RdcDataWriteOrVorify) ; 

RdEndLabel; 

"If write or verify data, GoTo WriteData. If data read, GoTo ReadData; otherwise skip data entirely. 

LU*-(RdcCommand) AND (RdcReadData) , '•Test for data read. 

GoTor,RdWriteData,ALU//0]; "If data write or verify. 
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GoTo[RdRoadData,Al.UA'0]; *If road data 
GoTo[RdClearWakeup]; *Skip data allogethor. 

RdV/riteData; 

*Coiiie here to write or verify data. Issue TOStrobo to cancel the waknup and go to sloep. 
RdcTemp^-'IOC, "to set MoiiiOiirf Adi- 

Cal 1 [RdSt robe] ; *Torininatc tlio wakeiip. 

*Conti!U]e aftor the first data fioid wakeiip. Sot MoniBufAdr to Iha address following tho last addross loaded with data in the sector wake 

•*(20 header and label ^ 20 data = 40). 

Output[[!dcTonip, RdcMeniRuf fAdr] ; 

•"Wo must have two instruclions after Output before a msiiiory instruction. 

RdcTenip< T*-20C; "Set displacement for lOt-etch and Interlock. 

RdWritcData2: „ . ^ , ,. 

•Repeat the following loop 17B (15D) times: Transfer 20 (I6D) words to tho Controller buffer. Issue lOStrobe to terminate tho wakeup. Go 

••to sleep. Continue at the next data wakeup. Use SectorTimoCount as a temp to set to 370 so wo can subti-act T from 370 to test for the I 

**ast transfer. This also makes another instruction after tho OiitpirL and makes an oven location to branch to on AI.U>=0. 
RdcLoopre3t*-370C; 

*Wo execute X0rotch4 four times instead of one IOFetch20. Again due Lo the famous Rodell Syndrome. 
IOFetch'l[ndcl.on(jPointGr,RdcOulput'|, *Transfar 4 more data words to tlio Controllor buffer. 

CariLRdrplus4NoTask]; *increment T and Tomp by 4. 
lOrotchltRdcl.onnPointer.RdcOutput;], *Transfer 4 more data words to the Controller buffer. 

Call[ RdTplus4]; '"Increment T and Temp by 4 and task. 
lOKetch'U RdcLongPointer.lidcOutputJ, *Transfor 4 more data words to the Controller buffer. 

CalirRdTplus4NoTask]; *incremetrt 1 and Tomp by 4. 
I0Fetch4[ RdctongPointorJidcOutput], 'Transfer 4 more data words to the Controller buffer. 

Call [RdStrobe] ; *Terininate the wakeup. 
•Continue hero after the next data wakeup. T and Temp will be 3/4 tho last time through the loop. 
LU«(RdcLoopTcst)-T; *Tost for last transfer 

RdcTemp<-T<-(RdcTemp) + (4C) , •Increment displacement. 

CoTo[RdWri teData2,ALU>=0]; *If not last data transfer 

•Continue hero on tho 10th wakeup. Ignore by issuing lOStrobo and go to sloep. The next wakeup is eguivalent to sector wakeup. 
GoTo[RdClearWakoup 1; 

RdReadData: 

"Come hero for data field r'oad operation. Issue lOStrobo to terminate the header field or label field wakeup and go to sleep. 

Cal 1 [RdStrobe] ; *Terininato the wakeup. 

•Continue here on tho first data field wakeup. Set MemBufAdr to 21B. Do PrimelData to start the controller. 
T<-21C, *Set MomBuffAdr to 21 

Call[RdPrimeIdata]; 
RdcTefflp<-T< OC; *T is displacement for lOStoro and Interlock. 

RdReadData2: . . , \ 

•Repeat the following loop 16D times: Read 16D words into the data buffer, Issue lOStrobe to tcnmnatc the wakeup and go to sleep. 
I0Store4| RdcLongPointer.RdcInput], *Transfer 4 bytes from Controller buffer to memory. 

Ca11[RdTplus4NoTask]; *Incremefit T and Temp by 4. 
IOStoro4|Rdttongl'o inter, Rdclnput], *Transfer 4 bytes from Controller buffer to memory. 

Calif Rdlplus4]; •Inci-omont T and Temp by 4 and task. 
I0Store4[RdcLongPo inter, Rdclnput], *Transfor 4 bytes from Controller buffer to memory. 

Call[Hdrplus4NoTask]; •Increment T and Temp by 4. 
I0Store4[ RdcLongPointer.RdcInput], *Transrer last 4 bytes bytes from Controller buffer to memory. 

CallfRdStrobe]; *Terminate the wakeup. 
LU<-(RdcTomp) XOR (374C); *Test for all bytes transferred. 

RdcTemp'T* (RdcTomp) + (4C) , *IiicremGnt displacement. 

Golo[RdReadDataZ,ALU//0]; *ir not last transfer 

•Come hero aftor the 17th wakeup. When tho last block has been transferred, go road status and do end of transfer processing, 
Input[RdcDiskStatus,RdcSlatus], •Read status register from controller. 
GoTofRdSectorWakeup]; 

RdEndTransf or: 

•Well, here we are boys and girls, at the wakeup after the data transfer. And the winner is 

*T = LSII[RdcState, 14]. 

RdcDiskStatus<{Rdcr)iskStatus) OR T, 'DiskStatus was loaded at Wakeup. 

•Well, shit! We got all the way down here only lo find we have an error. This could be serious! 
GoTo[ RdDatalOAt ten , lOAtten] ; 

•Wheww!!! Wo made it! Now go post the completion status in tho lOCB so TheFace will know what happened. Again the mighty RigidDiskCont rol 
•*ler triumphs over the evil DisplayCont rol lor! ! ! ! I 

•This is a temporary patch to see if tho last command was a write, and if so to verify it. 

% 

LU<-(RdcCommand) AND (4C); *Test for write data 

RdcCommand<-(RdcCommand) AND NOT (7C), *Turn off data field bits. 

GoTo[RdNotWrite,ALU=0]; 'If not write command 
RdcCommand<^(RdcCommand) OR (IC); 'Turn on verify data bit. 

RdcState<-RdcSectorWait, 

GoTo[RdEndSectorWakeup]; 
RdNotWrito; 



T<-(RdcIOCBptr)+(RdcIOCRcompletion), *Set displacement to post status. 

GoTo[RdEndCommand2]; 

RdEndCommand: , . , ^^ . • o . . u ■ o* 

•Come here when the command has been completed. We are through with this lOCB. If the command was seek only, State is Seek; otherwise ^ta 
*ne is DataTransfer or one of the error states. Post Status in lOCB. completion . (State is in bits [0..3]). Save the old lOCBptr in the C 
**SB NextlOCB points to tho next lOCB in the chain, if any. If any type of error occurred, NextlOCB will be zero to stop processing lOCB 
**s. Fetch lOCB. synch into CommandSynch. The transfer mask may bo used to cause a Mesa process interrupt at the end of the command. Note 
**that this is not the same as CSB. synch, which is still in Synch. 
T+-LSII[RdcState, 14]; *Status will have State in the high order 4 bits. 

RdcDiskStatus<-(RdcDiskStatus) OR T; *DiskStatus was loaded at Wakeup. 

T<-(RdcIOCBptr) + (RdcIOCBcompletion) ; *Set displacement 

RdEndCommand2: 

Pstorel[RdcZeroBase, RdcDiskStatus] , *Post status in lOCB 

Call[RdTaskIfNotZero]; 
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T« (rtdr.CSBptr) i(Rdc.CSBo1dT0CD); *Sot disp I aceiiiont 

I'storulfRdcZeroBaso, RdcIOCUptr] ; *Save old lOCBptr in CSn. 

r<-(Rdcl6C[iptr) i{RdcIOCOs.yncli); •Sot displacoment to fetch XOCU. synch. 

l'totchl,[lidcZ(jroBase, RdcComniandSynch ] ; 

'Now we can Doliit to scliediilc the Mesa processes that want to knovn about ond of command. We don't lest CoininandSynch for zero since Pilot 

** always wants to know about ond of command. 

.„««*»». *»start of Pilot Code*****'"""''"**'"***""'*'** '•***••"** 

T< RdcCommandSynch, *Cits to 01! into NWW 

LoadPanofO]; 
CallP[OoInt]; *Sot NWW and IntPonding; uses rogistors 0,1; no TASK 
*~*****"**End of Pilot Code*********"************************** 

*! •******»Start of MicrocodeDriven Codc*********'"*****""*******" 
l!dcTemp< RdcWakeupRog; *Load address of MWV/. 
r<(GctRspec[103|) XOR (077C); *Save Stkp, right side up. 
Stkp* RdcTomp , 

RdcTemp<-T; *Set Stkp to NWW, save old Stkp in Temp 

T<-RdcCommandSynch; "Get bits to OR into NWW. 

Stack<-(Stack) OR (T); *Set NWW. 
Stkp<-(RdcTenip) ; 
• ! ***' ''***End of MIci'ocodeDriver Code""******************''******* 

RdChain: 

*Fetch the pointer to the next lOCB from the current lOCB. We must fetch this pointer at the end of the transfer in order to give the Dri 

"*vor a clianco to prepare the next lOCB. Then liurry back to see if there is another lOCB in the cjueue . Sometimes TlieFace give us a whole 

•Mist of lOCBs all at once. If the next lOCB is for tlie next sector on the disk, wo have to be ready before the next sector mark comes a 

**round. It's back to the races, folks! 

T< (RdclOCnptr)+(RdcTOCBnext) ; "'Sot base to fetch lOCBnoxt 

l-tJ<-(RdcSlate)"(Rdcl)ata[.rror) ; *Test for error 

Rretchl[RclcZeroBa5e, RdcIOCBptr], *TOC.Bpt r^-IOCBiiex t 

Skip[ALU<0]; *If no' error 

RdclOCBpt r<-zoro; 'Zero lOCBptr to stop processing JOCOs . 

l<-RdcCS6ptr; 

CstorolfRdcZcroBaso, RdcIOCBptr"!; *Storo pointer to next lOCB in CSB. 

T«-RdcIOCBptr, 

L;oTo[RdIdloZ]; *Go process next lOCB. 
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RdDrivcChanjie: 

♦Come hero if tho new commancl rePerences a (Jifforont disk ririvo than tho previous command. We hav« to wait until the Controller has a no 

**w drive ready. Whon the drivo is ready, go back and continue where wa left off, 

RdcSectorTinieOutCount^RdcDrivoChancjeTimeWakeUp.s, 

GoToCRdtndSoctorWakoup]; *Go hack to sleep.' 

RdDri veChangel: 

•Continue hero at the next sector wakeup v.-hon State is DrivoCharige , LU " ( RdcDiskStntus ) AND (RdcDovSe lOK) . Soe if device is ready. 

RdcSectorTinieOutCount <- ( RdcSectorTimeOutCount)-! , 

.Skip[ALLi=0"|; •tf drive is not yet ready. 

GoTo[ RdDri vo Ready]'; *DevSe10K=l 

*Como here if the disk is not yet operational (Dov.So10K-=0 ) . Check for timeout. 

Skip[ALU=0]; *If not timeout 

*Come here if the device is not yet operational and timeout has not occurred. 

GoTo[RdEiidSoctorWakeup]; 

•Como here if disk has timed out. Wo can't hang around forever waiting for the disk. TheFaco will wonder what happened to us. 
ndcState'RdcDiskTimoOut .GoTotRdEndCoimiiand j; 

RdRecal : ^ .^ ^ 

*Coiiio here if CurrentCyl indor is -1 to indicate that we must r-ecal ibrate the disk. Send negative seek commands to the Controller until Ir 
"*acl(0 appears in the Status word. Wait for each seek to complete before sending another Command; otherwise we might get carried away and 
** send too many seek commands. This causes the disk arm to bang against the stop, and it makes an awful noise. 

*Status AND TrackO is on LU . Strip the head address from NewlleadCy 1 indor . If. wo go back to TestForSoek, we will need NewCyl indor in T. 
T<-RdcNewCyl inder«-( LDFfRdcNewDr ivoCyl inder, 10, 10]) , 

Skip[AL.U//0]; *If wo are at track 0. 

*We are not at track yet. Send a negative seek command and wait for the seek to complete. Return to Recal above when it has completed. 

T<~1C, *Seok one cyllinder. 

GoTofRdSoekNegl; 
*Wo are at track 0. We still have to seek to NewCylindor from track 0. 
RdcCurrcntCyl indor<-OC, 

Goro[RdrestForSoek,AI.U//0]; "If Nev;Cy 1 inderffO 

*NewCylinder is 0. We will not used to seek, but we must wait for tho heads to settle after recalibrating. 
RdcllcadSottloCnuntt-RdclleadSottl ingtimeWakeUps , 

GoTo[RdlloadSettle]; 

RdSoek; 

•Come here if CurrentCyl inder is not the same as MowCylinder. We need to seek, unless tho address is for one of the fixod heads. Head add 

'"•rcss is in bits [0..7] of HcwIloadSector. Bits[0.,3] are not used, flit 4 will bo nonzero if fixed heads. 

T-RdcNewCylinder, *LU-( LDF[RdcNowlloadSoctor ,4 , 1]) . 

Skip[AL.U-=0]; *If moving heads. 

♦Fall through here if fixed heads. Come here when tho heads liavo settled after a sock. 
RdSeokZ: 
T<-(RdcIOC[Jptr)^(RdcIOCnnoxt) , "Prepare to fetch. 

(;oTo[RdSeekComplete] ; 

♦Continue if the disk address is for tho moving heads. We really do need to seek. Well, there is no need to hurry any more. We have a 

** long wait. Send seek commands to the Controller one at a time. Each command moves the arm one cylinder in the negative or positive dir 

**ect ion . 

T<^(RdcCurrontCylindor)~T; *T = CurrentCy 1 inde r-HewCy 1 indcr 

GoTo[ RdSeokMeg , ALU>=0]; *If Curren tCyl inder > NewCylinder. 

♦Continue if seek direction is positive. 

RdcCommand<-RdcSeekiD, *Set for positive direction seek. 

GoTo[RdSeekLoop]; 
RdSeekNeg: 

RdcCommand<RdcSeok-D; 'Set seek command for negative seek. 
T<-(zero)-r; *Seek counts up instead of down. 
RdSeekLoop: 

•Send seek commands to Controller. T = number of tracks to seek in negative form. This crazy machine can add one to T, but it can t subt 
**ract one from T. So we count up instead of down. 
Output[RdcCommand,RdcOevOp]; "Send seek command, direction, and allow wake to Controller. 

*Now we need to delay at least one microsecond before issuing another Output command. If we send the commands too fast, the Controller ge 
**ts confused. We delay by tasking. Initialize TimeOutCount . Wo bettor find our cylinder before it times out. Set up HeadSet tl ingCount . W 
•*e will start to count down when the seek is complete. 

RdcStato<-RdcSeekWait, 

Cal l[RdTaskIfNotZero]; 
RdcHeadSottleCount<"RdcileadSettl ingfimeWakeUps , 

Can[RdTaskIfNotZeroJ; 
T<-(zero)+T+l; *Decrefflent // tracks to seek. 

RdcSoctorTimeOutCount<-RdcSoekTimeOutWakeUps , 

GoTo[RdSeekLoop,ALU//0]; *If wo need to send another seek command. 
•Turn off the seek bit in tho command, but leave AllowWake and Direction bits on. otherwise the Controller gets confused. 
RdcCommand<(RdcCommand) AMD (RdcAl lowWakoAndSeekDi recti on) ; 
Output[RdcCommand, RdcDevOp], 'Send command to Controller. 

Goro[RdEndSectorWakeup]; *Go back to sleep until the next sector wakoup. 

RdSeekWait: „ . ,, , 

•Now we must wait for the seek to complete. Go to sleep and continue hero at each sector wakeup. Check the Status word at each wakeup m 
**til SeekCornplete appears. 

RdcSectorTimeOutCount «- (RdcSectorTimeOutCount )-l , 
GoTo[ RdSeekWait 2, ALU//0]; 

•Continue if seek has not yet completed. See if seek has timed out. 
GoTo[RdSeekTimeOut,ALU = 0]; '"If seek timed out. 

•Continue if seek did not time out and seek is not complete. 
GoTo[RdEndSectorWakeup]; 

RdSeekWait2: 

•Seek has completed. See if this was a one step .seek for recalibrating. 

LU^-RdcCurrontCyl inder, 

GoTo[RdHeadSettle,R>=0]; *If not recalibrating 
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'The seek has completed, and we are recalibrating. Go sno if wo ara at track yet. 
UJ<-(ndcDiskStatu3) AND (RdcTrackO), 
Goro[Rd«oca1]; 

RdlleadSottle; 

*Coiiio here when the seek has coinplctnd. Now wo must wait for the heads to settle at the new cylinder. All that seeking was a shock to the 

**ir little sensors. Co to sleep and count sector wakcups until we think tlio heads have settled down. 

T«-RdcDiskAddress(>tr; 'Set base to point to csb . di skAddress[dri voj . 

*Update CSB.diskAddressfdrivo]. V/e do not update Curton tCyl inder. Do tliis first because it gives us a chance to task. 

Pstorel[RdcZeroBase, RdcNowCyl in dor], 

Call[RdTaskirNotZoro;|; 
RdcHeadSettleCount<-(RdcMeadSettloCount) -1; 
Skip[ALU=0]; *If heads have settled. 

•If wo came here from Rccal , the Stato has not yet boon sot. 
RdcStato*'RdcSookWait , 

Goro[RdEndSeclorWakeup']; 

•The seek has completed, and the heads Itavo settled. 
Goro[RdSeok2]; 
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"Tliis subroutine tormiiintos thu wakoup and goes to sloep until tlio next sector wakeup. Moto; This does not work ir lOStrobo and REl'JRN ar 
**o on the same statement. VJe must delay bofore tlio RIITUHN. 
tost robe, 

Goro[l!dTaskJ; 

RdTasklfNotZero: 

*******»***»Bc!g in Code to Lock Out Task Zero on Task Switch********* 

*This task swrtcli will switch to any task except task 0. It is desirable to lock out task zero in the critical timing paths in order to r 

**oduce the chances of a rate error or service iato. To let in task zero, make the lines between asterisks comments and chanQo I'riinelduta 

** to delay before the GoTo[RdTask] . 

LU<-APCra3k; 

UseCTask, 

Skip[ALU=0]; 
MOP ; 

*««*********F.nd of Code to Lock Out Task Zero on Task Switch******** 
RdTask: 
RETURN; 

♦Add 4 to Temp and T. This is used often by TOI-otch'l and lOStorel. The first instruction must allow for the bypass of T. Since the last i 
•*nstruction was a memory instruction, T has not yot been updated. 
NOP; 

r<-RdcTomp<-(RdcTemp)i-(4C), 
RtTURN; 

RdTpluslHoTask: 

*Tlris is just like RdTplus4, but it does not allow a task switch. 
Us oC task;' 

r<~RdcTeinp<-(RdcTemp) i-{4C) , 
RF.TURN; 

RdPrimeXdata : ,. . . „ ,, • ,, r iir 

*This subroutine sets MemOuffAdr to the value in T and primes the ControVlor by Output to Pnmoldata. fho instruction rollowint) the CallL 
•*RdPrimeTdata] must do an interlock of Temp to insure that the Output has been coiiipletod. We do not do the interlock before the return s 
**o as not to iiold up the CPU ininecessari ly . 

RdcTomp«-T; *T contains the value to write to MemOuffAdr. 

Output[RdcTemp,RdcMemBurfAdr 1; *SQt MemlUiffAdr. 
Output[adcTemp,RdcPrimeldata I, *Start the Controller. 

*We must delay before tasking after an Output. Task IfNotZero has d delay. 
GoTo[RdTaskIf Not Zero]; * Ret urn 
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♦FJiRORS COME THROUGH HERE. 

RillloadDrlOAttGn: ' . . -, -r 

*CopnG hero if we got lOAUen in stale DataTransrer just after readiMq the Header, If the error was due to ServicoLate, we will retry if t 

**he retry error counter has not yet gone negative; otherwise we report the error. 
RdcState<-RdclleaderError; *Set error code 

RdTostError: 

*Stato is HeaderError, DataError, or LabelError. 

tn|uit[RdcDisl<Status,RdcStdtus], *Get Status from Controller. 

Can[RdTask I; 
Output[RdcTeni|),RdoErrorReset'J; 
LU<-(RdcDiskStatus) AND (RdcErrorDi tsLow) ; 
l.U*(RdcDiskStatlis) AMD ( RdcServicoLato) , 

GoTo[RdRoportError,ALU//0]; *irUufErr, RdErr, Writef-ault, or Ofault 

♦Continue if not BufErr, RdErr, Writcl'ault, or OfauU. Test for SorviceLate. 
LU*(RdcDiskStatus) AND (RdcRateError) , 

GoTo[RdServicelatc,AI.U//0]; *If SorviceLate 

♦Continue if not ServiceLate. Test for RatoError. 

T<-(RdclOCBptr) + (RdcIOCBsyndromo)H, 'Sot up to fetch RatoError retry count. 

GoTorRdTestRetry,ALlJ//OJ; 'If RatoError. 

RdForcoRecal : 

*Continu6 hei-o if no error bits are set in the Status word and we got lOAtten in the header field. We should not ever get header errors. 
**Either we lost our place on the disk or there is garbage in the header, foj'ce a recal the next time we try a command. 
*Come liore from SeekTimeOut or SectorTimeOut . 
r<-RdcDiskAddrossPtr; 

Rdcleinp< (zero)-!; *Storo zero in disk address 

Pstorol[Rdc?eroBase, Rdc Temp], 
GoTo[RdEndComiiiand] ; 

RdSe rviceEato : 

* ! ** ****'»'»Start of MicrocodoDri ver Code*******"""***** ****"'*•*•** 

RdcSectorTiiiieOutCount<-RdcSectorTimeOutWakeUps; 

RdcStato*-RdcSoctorWait, 

GoTo[RdEndSectorWakoup]; *Rotry all Servicel.ates . 

* ! **• •*«**End of Mic rocodeDrivor Code************ ******** ******* 
T< (RdcIOCBptr) i(RdclOCIlsyndrome), *Set up to fetch ServiceLate retry count. 

GoTo[RdTestRetry]; 
RdTestRotry: 

*Camo here if ServiceLate or RatoError. Fetch the retry count from the Syndrome. Retry count+1 times. This means if the count is zero, we 
** will retry once. Decrement this count, update it in the lOCR, and test for negative. If negative, wo give up; let TheFace figure out 
**wliat to do. If the retry counter is not negative, we go back to State SectorWait and retry wlien the sector comes around again. 
PretclrL[RdcZeroBase, RdcTemp]; *Fetch retry count. 
RdcTemp<-(RdcTomp) -I, *Decromont retry count. 

GoTo[RdRetry,R>=-0]; 
*Come here if retry count has been exceeded. 
RdErrorCountExceedcd: *This is a breakpoint label. 
"Report error if ei'roi' count has been exceeded. 
GoTo|;RdReport Error]; 

RdRetry: 

*Retry the command the next time tin; sector comes around. 
Pstorol[RdcZorol)aso, RdcTonip]; *Updato retry count. 
RdcState< RdcSectorWait, 

GoIo[RdEndSectorWakeup]; *Retry 

RdDatalOAtten; . ^„,.„ . 

*IOAtten in state RdcData, after the data transfer. If the error is due to a RatoError, we will retry if the error count in tho lOCn is n 
**ot yet negative; otherwise we will report the error. If the State is negative, the error occurred in the label field; otherwise the arr 
**or occured in the data field. 
LU^-RdcState, *Test for label error. 

Skip[R>-0]; *If not label error. 

RdcState<-RdcLabelError, *Error occurrrod in tlie label field. 

GoTo[RdTestError]; 
RdcState*^RdcbataErr-or, *Error occurred in the data field. 

GoTo[RdTestError]; 

RdReportError; 

T<-23C, 'The Controller places the syndrome in words 23b and 24b. 

Call[RdPrimeIdata]; *Start tho Controller. 

RdcTemp' RdcTemp; *Interlock for Primeldata 

Input[RdcSyndrome,RdcInputBuffer]; *Get syndrome from Controller. 

Input[RdcSyndromel,RdcInputBuffer]; '^Get next word of syndrome. 

r*-(RdcIOCBptr) + ( RdcIOCBsyndrome) ; *Sot displacement to store syndrome. 

Pstore2[RdcZeroBase, RdcSyndrome], *Store syndrome in lOCB 

GoTo[RdEndCommand] ; 

RdSeekTimoOut: 

*From state Seek. A seek time out error has occurred. 

RdcState<-RdcSeekTimeOut ,GoTo[RdForceRecal]; 

RdSoctorTimeOut : 

*From state SectorWait. The sector has timed out. 

RdcStatefRdcSectorTimeOut,GoTo[RdForceRecar|; 



RDC.nic 



3-Nov-7d 19; 15: S3 



Page 10 



ON PAGE[RdcIn1tPanoj; 

*This is tho RDC initial i/atioii code. 



This is throw-nway code that lives 1n a separate page from the RDC microcode. 



*RedGfine temporary registers for iiiit 1a lization . 
RV[RdcRogO, ADD[Rdcl!ogDasG, ()]1 
RV[RdcReql, ADD[RdcRcgnase, I]] 
RVfRdcRenZ, ADDfRdcRognasa, 2]J ; 
Rvy[RdcRog3, A[)D[RdcRognase, 3]] ; 

RdcTnit: 

RdcRegO'OC, AT[RdclnitLoc] ; 

RdcRGgl«-OC; 

RdcReg2<-0C; 

RdcRog3<-0C; 

RdcZeroBase<-OC; 

RdcCSBptr<-AND@rRDCCSBVaiue, 377]C; *Spt Controller Status Block addrass to 720. 

RdcCSr!ptr< r»-(Rdc(;SBptr) OR { AH[)@[ RDCCSBVa lue , 177400JC); 

Pstore1[RdcZGroRase, RdcRegO]; "Store zoro into first four words of CSn. 

RdcRogO'-(zoro)-l; 

RdcRegl<-(zero)-l; 

RdcReg2<-(zero)-l; 

RdcReg3f^(zoro)-l; 

T<-(RdcCSCptr)t(RdcCSBdiskAddress) ; *T points to disk addresses in CSQ. 

Pstore4[RdcZoroBase, RdcRegO] ; *Sct ail disks to recalibrate. 

RdcDiskAddrossPtr*-T; *Sct RdcDi skAdd ressPtr to point to CSB . diskAddress[dri vc 0]. 

*Sot Curren tSector to a value higher than any sector. This will cause us to start counting at sector 0. 

RdcCurreritSector^lOOOC; 

OuLput[RdcRegO, RdcGoneralReset ] ; *Resot the Controller. 

Output[Rdc7.eroBase, RdcDri vo/llead] ; *Set Controller disk and head to zoro. 

RdcConimand* RdcAllowWake; 

Output[RdcConimand, RdcDevOp]; *Sond Allow Wake to Controller. 

* I ******* '"Start of Mic rocodeDrivor Code********** *************** 
*Microcode driver version 

Cari[RdcReturn]; 

* I ********End of MicrocodcDriver Code****** ****** *************** 

LoadPage[RdcPage] ; 
RdcSlatG< Rdcldle, 

Go ro[RdClearWakeup]; 

* ! ********Start of MicrocodoDri ver Codo***************** ******** 

RdcReturii : 

RdcTcmp* RdcDiagTask . I; 

RdcTemp*-(RdcToinp) OR (RdcDisk.2); 

APCTask&APC< RdcTomp; 

RETURN; 

* ! ********[;nd of MicrocodcDriver Code*************************** 
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LOG 

Tlie first inajor revision to this code wns to clianfle all lOFotchlGs lo lOPstclHs. The lOFotchlG was causing a v/orcl to be dtipl icatfid on tho 
♦♦ disk and pushing evory other word in ttio page dovvn one woi-d, pushing tho last word on tho page off the end. (This is the Tanious Rodeii" 
** Syndrome). The Controiior must have a now word ready I'or the disk, every '?.?. microseconds. During the lOFetch, the Corrt rol ler ' s buffer 
**is locked out, and a now word cannot bo transferred to tlie holding register. If enough branch burps cause tho lOFetchlO to e-tcoed the 2 
**.2 microsecond time limit, u new word cannot be loaded into tlu) holding register, and the previous word is duplicated. 

October 14, 1979 4:34 PM; The new RDC buy has the following symptoms: Four woi-d blocks of data were not getting preloaded into tho Contr 
•*oller's buffer. On all write operations, 32 words of data wore being loadod into tho Conti'ol lor' s buffer after tho Command had been son 
**t to Uie Controller, Sometimes 8, 12, or- 20 words of thi.s preload data would not get loaded into the buffer, and the data from the prev 
**ious write operation would get written to tho disk page, fhe Controiior did not report any error. 

Chuck Thackor suggested the following solution to the problon;: Preload tM(! buffer before sending tho command to tho Controller. I observe 
**d some interesting "features" about tho Controller when I tried this: 

1. It is not a good idea to preload the buffer with header and label data if the command is not write or verify. If the command is a read 
♦* operation, this causes ServicoLate to occur about 20 percent of the time. Because of this, we only preload the buffer for write or ver 
**ify operations. 

2. If we preload tho buffer with 32 words of data, wo get spurious lOAtten from the Controller in the header field. Ho error bits are sot 
•* in the Status word, and the header data is correct (i.e.. It is not a verification error). If we only preload J6 words, we do not got 
**tliis spurious lOAtten. ' 

3. If the command is verify label, read data, we must set McmGuffAdr to zero right after sending the command to tho Controller; Otherwise 
** we got spurious lOAtten in the label field, i.e., no error bits arc set and there is no verify error. 

^. If we preload the buffer for a write operation, wo must not set McmRuffAdr to zero after we execute the command. This causes lOAtten i 
■**n the header field. In fact, this may be the cause for the whole problem wo were having. Once in a while, maybe HemlluffAdr was gcttin 
**g set to zero before all of tho data had been sent to the Controller. 

% 
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« File RDCDefs.mc 

• Last otlit by Jim Fraiidean September 19, 1979 2:19 PM 

Z 

This microcode is written to run under Pilot or under Stipor, tlio iiiiorocodo driver written by Jim Kats i roumbas . The rnodo depHnds on two so 

''■*ts of statements as foVlov/s; 

To TLUi under Pilot: 

insort[D01.ang] ; 

MoMidasInit; LangVorsion ; MuitDib; 

lMSort[GiobaiDefs'|; 

Set[PiJotMode,l]; 

To run under Super: 

Insert[SUPI£riDEFSl; 
NoMidasInit; LangVersion; 
.Set[Pi1otModo,0]; 

7. 

Insort[DOLang]; 

NoMidasInit; LangVorsion; MuUDib; 

lns€rt[Gioball)ers]; 

SRtf Pi JotMode,!]; 

nr@[PiiotHode,1,Co(MCliar0[ ! J ,ComChar@[~]] ; 

* ! **"'*"'***Start of HicrocodcDri vcr code**"'*****************'"'*"* 

Sotl RdcInitPage.RDCRPAGril']; *Throwawa.y init code for SA4000 

Sotf Rdcin i tLoc.Addfl-Shif trRdcInitPage,10"|,0 11; 

MC[RdcWakcupReg,10]; 

• ! ********Eiid of MicrocoduDrivor Code****"""*****'**************** 

SET TASK[RdcTask]; •currently lib = 9d 

Sr:T[RdcDase, l.SHIFT[RdcPago , 10]]; 

♦The following are definitions Tor llie registers that belong to the RDC microprogram task. 

SFTfRdcFi rstRogistor, LSIIIFT[ndcTask , 1]] ; *Tho first register in the block assigned to the RDC task (currently 220B). 

SCf ( RdcRogliaso,AND('!|;GO,RdcFi rstRegistcr |]; "This makes ail of tiie register addresses bits long. 

Miegistor is destroyed across sector wakeups . In the Datati-ror routine, it is used to fetch the syndrome from the Controller. SectorSyn 

'*cii is used to load CSIi. synch at the end of sector wakeup. 

RV[RdcSyndromo, ADDfRdcRogBaso , 0]]; 

RV[RdcSectorSynch, ADD[RdcRogBase , 0]]; 

"Register 1 is destroyed across sector wakeups. Temp is used for a temporary register. In the DataFrror routine, it is used to fetch the 
''syndrome f i-om the Controller. 
IIV| RdcTemp, ADD[RdcRegRaso , 1 ]]; 
UV[R(lcSyndromel, A[)D[RdcRegnase , 1]]; 

*D iskAddressPtr points to CSB. diskAddress[curi-ent drive]. It is used to update CSB . diskAddress when the drive changes and also to see if 
**the drive has changed since the last command. 
RVf RdcUiskAddressPtr, ADO[RdcRogBase , Z ]] ; 

"Curren tSector contains the current sector number of the current drive selected. It is updated at each sector wakeup. 
RV[RdcCurrentSector, ADDl RdcRegBase , 3]J; 

•The next four registers must be consecutive and quad word aligned: HextlOCB, Command, Longl'ointer, and I ongPointerl . They are loa<led tog 
♦"'ethor from the lOCB when the state changes to DataTransfer. 

'NoxtlOCB points to the next lOCB in the chain. It is not loaded from the lOCB until the DataTransfer state. 
RV[RdcNextIOCB, ADI)[ RdcRegBase , 4]]; 

"■Command is the conmiand loaded from the lOCB. It is not loaded until state DataTransfer. Until then, it is used to send seek commands. 

RV[RdcCommand, ADD[RdcRogBase, 5]]; 

*CurrentCyl inder contains the current cylinder number of the current drive selected. It is used to determine whether wo need to seek, an 
**d if so in what direction. It is loaded from the CSB for each command, and it is stored in the CSB after each seek. CSB . d iskAddress[dis 
**k index 0..3] contains the arm position of each drive. If -1, it means wo must recalibrate. It is not used after tlie seek. LongPointer 
♦''points to the data specified in the lOCB. It is not loaded from the lOCB until state DataTransfer. 
RV[RdcLongPointer, ADD[RdcRegBase , 6]]; 
RV[RdcCurrentCylinder, ADD[RdcRegBase , 6]]; 

♦MeadSottleCount is used to courrt sectors until the heads settle after a seek. l.ongPointerl is the second word of LongPointer. It is not 
•■"loaded from the lOCD until state DataTi-ansfer. 
RV[RdcHoadSettleCount, ADD[RdcRegBase, 7]]; 
RV[RdcLongPointerl, AOD[RdcRegBase, 7]]; 

•The next two registers must be consecutive and doubleword aligned: lOCBptr and Synch. They are loaded together from the IOCS. 

•lOCBptr points to the lOCB of the current command.. 
RV[RdcIOCBptr, ADD[RdcRegBase, 10]]; 

•Synch is an interrupt mask loaded from the CSB. -1 means stop the Controller; otherwise it contains an interrupt mask used to schedule M 
**esa processes after each sector wakeup. It is loaded at the beginning of the Idle State in order to see if it is necessary to stop proc 
••essing lOCBs. SectorTimeOutCount is used to count sectors until timeout for states DriveChange, SnekWait, and SectorWait. CommandSynch 
**is used to load the Synch word from the lOCB to schedule Mesa processes at the end of the command. (Note: this is not the same as CSB.s 
**ynch). LoopTest is used in the DataTransfer State as a temporary loop control. 
liV[RdcSynch, ADD[RdcRegBaso , 11]]; 
RV[RdcSectorTimeOutCount, AOD[RdcRegBase , 11]]; 
RV[RdcCorr,mandSynch, ADD[RdcRegBa.se, 11]] ; 
RV[RdcLoopTest, ADD[ RdcRegBase , 11]] ; 

•CSBptr points to the Coirtroller Status Block. 
RV[RdcCSBptr, ADD[RdcRegBase , 12]]; 
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♦State tells what state we are in when wq gel a sector wakeup: Telle, SeokWait, SnctorWait, DataTrnns fer. State Is defined in more detail 
•"■below. Dit will bo set after a data transfer if we got lOAttcn in the label field. 
RV|;i(dcState, ADD[RdcnegHase , 13]]; 

"The following two registers must be together and doubleword aligned: MewDriveCyl iiulor and NewlleadSec tor. They are loaded together from t 
"ho lOCB. 

*NewDrivcCyl inder contains the drive and cylinder address foi~ the current command, loaded fr-om the lOCD. The Drive bits are stripped off 
**during the test for seek, and it becomes NywCyl inder. tt is only used to dotermino whether a seek is reiiiiirod. RegT is used to save the 
** value of T for I0Fetch4 and I0Store4 during data transfer operations. It is only used during the DataTransfer State. 
l!V[RdcNowl)riveCyl inder, ADD[ RdcliegBaso , 14'|]; 
IIV[l!dcHewCyl inder, ADuiRdcRegBase , 14]] ; 
RV[ltdcRcgr, ADD[RdcRogBase, 14]] ; 

"flewlloadSector contains the head and sector address of the curr.ont command, loaded from the lOCI), It is used to check and see if we are a 
♦*t the right sector on the disk (if the Sector bits match CurrentSeclor) before starting a command. It is not used after v;e start the da 
**ta transfer operation. 
RV[RdcNewlleadSeclor, ADD[lldcRegnaso , 15]] ; 

•DiskStatiis contains the state of the Conti'oller. It is loaded at each sector wakeup and when an error is detected. 
RV[RdcDiskStatus, ADD[RdcRegBase, 16]]; 

♦ZoroBaso is used for nieinory commands to fetch and store data in the fJSB and the lOCR, Since these control blocks are always in low memor 
**y, r is used as the addi'ess. Since this is an odd base register, Zei-oRaso OR 1 is the same register. 
Rvf RdcZeroUase,OR@[RdcRegDaso,l/]]; 

•Constants 

MC[RdcA I lowlask , 100000 ] ; *To allow task when returning from Oolnt. 

Mt:[RdcB i to, 100000]; 

* The following definitions are for the Controller registers: 

SfTTRdcAddr, LSllIFTf RdcTask , 4]] ; *The device address of the RDC (currently 220B). 

StTfRdcCoiieralRoset , 0]; "General Reset 

Sf Tf RdcStatus , 1]; 'Controller and drive status 

St r[l!dcInputBuf fer, 1/]; "This register presents liuf fer[ RdcMoniUuf f Adr] . 

SETfRdcInput , ADD[ RdcAddi-, 17 ]] ; "Complete device address Tor above, 

Si:T|;RdcDrive/lload,' 1]; *Drive is in bits 12-13 (lOllD), Mead is in bits 14- 17 (12-15D) 

SriiRdcErrorReset , 2]; *Error Reset (data is ignored) 

St r[ RdcDevOp , 3|; *Disk commands and allow wake bit 

StT[RdcOutput , ADD[RdcAddr,4]]; "Data loaded into this register is written into Buf fer[RdcMemBuf Addr] . 

SET[RdcMeiiiBurf Adr, G]; -"This register holds the current pointer into the RDC ' s data buffer. 

SE r[RdcPriri;elDala , 7]; *This register must be accessed by OUTPUT befoie reading the first word of each sector from the RdclUiffer. 

*llu; follov/ing definitions are for the DevOpReg: 

MC| RdcAl lowWake , 4000]; *Allow wake bit must be set at each Output if wakeups are to bo enabled. 

HC[RdcAl lowWakeAndSeekDi rect ion , 5000] ; 

MC("RdcScokBits , 3000]; *Suek command bits 5-6 

MCfRdcReadWriteBits, 377]; "Read-write bits 10-17 

HCJRdcSeek D, 6000J; *Seek command in negative direction (outward toward lower track numbers) plus allow wake. 

HCJ RdcSeek iD, /OOOJ; "Seek command in positive direction (inward toward higher track nund)ers) plus allow wake. 

MC[RdcWri telleader, ' 200]; 'H'/rite header 

MC[RdcDataWriteOrVerify, 5]; 

MC[Rdcl abelReadOrVerify, 30]; 

MC[RdcReadnata, 2]; 

*The following definitions are for the RdcStatus word: 

MC[RdcDevSelOK, 20]; "Device is selected and ready. 

HC[RdcSeekCompleto, 40]; 

MC[RdcTrackO, 100]; 

MC| RdcServiceLato, 2000]; 

MCiRdcRateError, 400]; 

MC[RdcSectorO, 200]; "Physical sector 

MC[RdcErrorBitslligh, 400]; "RatoError 

MC[RdcEri-orBitsLow, 17]; "BufErr, RdErr, V/riteEault, Ofault 

"The following definitions are for offsets in the lOCB: 
MClRdclOCBlabel , 4]; "label: Label (words 4-13G) 
HC[RdcI0CBlabeli-4, 10]; "label: Label (words 10-130) 
MC[RdcIOCBnoxt, 14]; "next: lOCOLink 
MCiRdcIOCOcommand , 15]; "Command 
MC[RdcIOCBdata, 16]; "data: LONG POINTER 
MC[RdcIOCBcompletion, 20]; "completion: Status 
MC[RdcIOCBsynch, 21]; "synch: process wakeup mask 
MC[RdcIOCBsyndromo,' 22]; 

"The following definitions are for offsets in the CSB (Controller Status Block): 

MC[RdcCSBsynch, 1]; "synch gets loaded into RdcStato. If bit = 1, Quiet procedure says turn off Controller. 

MCfRdcCSGdrivo, 2]; "drive: Status. 

MCfRdcCSBcontroller, 3]: "controller state. 

HCiRdcCSBdiskAddress , 4]; "diskAddross : ARRAY[0..3] contains cylinder address only. -1 is for recalibrate. 

MC[RdcCSBoldIOCB, 1/]; "oldlOCB: lOCBLink. 

"Thefol lowing memory locations are for debugging with the microcode driver. 
MCf RdcRateErrorCount , 75]; "I'or debugging with microcode driver 
MC[RdcServicel.ateCourrt , 76]; "For debugging with microcode driver 
MC[RdcHeaderErrorCount , 77]; "For debugging with microcode driver 

"The following are timing definitions that are loaded into SectorTimeOutCount : 

MC[RdcHeadSettl ingTimeWakeUps, 37J; "Number of sector wakeups for head to settle after seek complete (20 miliseconds, or one disk rev 

""olution). 

MC[RdcSeekTimeOutWakeUps, 1000]; "Number of sector wakeups to wait until seek time out. 

MC[RdcDriveChangoTimeWakeUps , 2]; "Number of sector wakeups to wait after drive change. 

MCiRdcSectorTimeOutWakeUps, 100]; "Number of sector wakeups to wait until sector time out when in state SectorWait. 
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"The followlriQ definitions aro for the coiitroner Slate: 

MC[ndcS()ctorWa1t, Z]; 

"Waiting for the sactor on the disk (CurrciitScctor) to matcti tlio sector specified by the current command. 

Mri'UdcSeokWait, 3]; 

■ riiu Controller is seeking tlie cyrhidfir specified by the current command, and wo aro waiting for SeekCoinplete to appear in the Status wor 

•■""d. 

MC[RdcId1e, 4]; 

•'This is the initial State. The Controiier is not executing a command. We aro waiting for a now lOCD to be chained onto the CSB. (Note: 

*'"wc count on this state being even). 

HC[ridcDrive(;hange, 5]; 

*The Controilor enters this slate to wait for a drive to come ready when the drive changes between commands. (Note: we count on this stat 

**o being odd) . 

Mr,[RdcD,itaTransfer, 6]; 

"Data transfer is in progress. At the next sector wakeup, wo will check lOAtten. 

"Iho rest of the states are error states. 

MC[RdcDataError, 12]; 

*tntor this state from state DataTransfer if any error is detected. Bits in the Status word indicate the problem. 

MC|;RdcSectorTiRieOut, 13]; 

*Enter this state if the timeoirt occurs before the sector is found. 

MC[RdclleadorError, 14]; 

"fnter this state if lOAttcn occurs in the Header field. 

MC| RdcSoekfimeOut, 15]; 

*Entor this stale from state Seek if a time out occurs while doing a seek. 

MCLRdcDiskTiiiioOut, IGJ; 

"tnter this state from DrivoChange if time out occurs before the drive becomes ready. 

MC( RdcLabolEi-ror, 1/]; 

*l.nter this stale from state DataTransfer if lOAtton occurred while rending the label field. 
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insGrt[d01ang] ; 
NOHIDASIHIT;LAtiGVER.STON; 

tit1c[RSZ3?Asyncp, 

* Last modiried by RRD on Aiiyiist 20, 1979 12:48 PM Mxed CloljalOofs conflicts 

* modilMod by BDD on June 25, 1979 11:44 AM 

* Version 3.0 

iiisorl[G1obalDers]; 
insort[RS23ZDefs;j; 

" This microcode uses a timer to siinulato a hardware wakeiip Tor the framo task. It uses 

* I'ask 4 for tho fram(3 task, and task 6 for the bit task. 

StT TASK [RGTask]; 
ONPAGF. [RBPago];" 

* Wakciip occurred on input timer. Get input bit value and dispatch on input state, 

RlWako; $RlDi tOispT RStato] , AT [RTWakcLoc]; 

DISP|;iUChockStartj, T <- (RS232) AND (RI232Data); 

* Start bit detected, chock bit to be sure its a start bit and not noise. 

RICheckStart: GOTO [RIGood, ALU=0'|, T < (RDataMask) AMD ( RDataSizeMask) , AT [ RTBitLoc , 0] ; 
R I Se t S t a rt : i AD 1 t ME R[ R IH a I f 13 i t Lo ] ; 

I.IJ < (RDataMask) AND (RDataSlow); 

SKIPON IALU//0]; 

RETURN; 

NOP; 

NOP ; 

GOTO rCTii'ierReturn"!, LOADTlMERr RHIa 1 fBi tH i ] ; 

* Good start bit, increment to next state and set whole bit timer 

RIGood: RIData <-■ T; 

RTNextState: RStatc <- (RStato) + (RTBStatelncr) ; 

RI Sc t T i mo r : ADD EOT IMl. R[ RI Pu "11 i t Lo"] ; 

LU <- (RDataMask) AND (RDataSlow); 

SKIPON [ALU//0]; 

RETURN; 

NOP; 

NOP; 

GOTO [RTimerReturn], L0ADTIMER[RIFu1if)i tlli] ; 

* Data bit in. Shift into partially assembled chai'acter. If end of character, increment 

* state to check stop bit. 

RIShiftBit: RState <- (RState) XOR (T), AT [RIB i tLoc , 11 ; 

DDLGOrO I RlNextStato, RISo LT iiiie r-, R ODD | , RIData < ( RSH[ R 'Oat a , i;| ) OR (T); 



Justify character and check parity bit. 



Af [RII!itLoc,2J; 



AT [RIJustLoc.O]; 
AT [RIJustLoc,l"|; 
AT [RIJustLocZ]; 

AT [RIJustLoc,3]; 



AT [RIParLoc.O] 
AT [RlParLoc, 1] 
AT [RlParLoc, 21 
AT [RlParLoc, 3| 
AT [RlParLoc, 41 



$RiaustDisp[ RDataMask], 

DISP [RlJustiCyl, RState < (RState) XOR (T); 
RlJustify: GOTO [RtParity], RTData <• RSII[RIData , 3] , 

GOTO [RIParitvl, RIData < RSli[ RIData , 2] , 

GOTO [RlParity], RIData < RSH[RIData , 1] , 
RIParity: SRPari tyDi sp[RDataMask] , 

DISP [RIParNone], RState <- (RState) + (RIBStatelncr) ; 
RIParNono: GOTO [RlCheckStopl , RBTompl <■ T, 

RIParOdd: GOTO [RIParChkl, LU *- LDF[RState, RIParityBit, 1], 

RIParEven: GOTO [RlParChk], LU «- (LDF[RState, RIParityBit, 1]) 1, 

RlParOne: GOTO [RCParClik], lU »■ LDE[RBTempl, RIParityBit, 1], 

RlParZero: GOTO [RlParClik], LU ^ ( LDF[RBTeinpl , Rlparitybit, 11) - 1 

RIparChk: GOTO [RIParGood, ALU//01; 

RIData >- (RIData) OR ( RIDataPari tyErr) ; 
RIParGood: GOTO [RISetTimer] ; 

• Stop bit in. Chock to verify that this is a stop bit (Data=l). If not it's 

• either framing ei'ror or a break. Set break/framing error counter. 

RICheckStop:G0TO[niTurnon,ALU//0], AT [RIBitLoc, 31 ; 

GOTO [RINextState], RIData <- (RIData) OR (3000C); 

• Checking for either framing error or break character. Wo do that by docromonting the 

* break/framing error counter each bit time until tho line returns to the idle state. 

* If the counter goes negative, we call it a break. If not, it is just a framing error. 

SKIPON [ALU=0], RIData <- (RIData) - (400C), AT [RIBi tLoc , 4] ; 

DBLGOTO [RINotifyBreak, RINotifyFrame, R<0], RIData «- RllMASK[RIData] ; 

SKIPON [R> = 01, LU «- RIData; 

RIData f- (RIData) + (400C); 

GOTO [RISetTimer]; 
RINotifyFrame:' GOTO [RITurnOn], RIData «- (RIData) OR ( RIDataFrameErr) ; 
RINotifyBreak: GOTO [RITurnOn], RIData <- (RIData) OR ( RIDataBreak) ; 

* Notify frame task that input has work 

RITurnOn: SKIPON [R<0], RState «- (RState) OR (0Re[RIAct1 ve I , RXActi ve ! ]C) ; 
L0ADTIMER[ RF rameTime rl] ; 
RState *- (RState) AND NOT ( RIBStateMask) ; 
T *- (RPtrCSB) + (RIndexCharIn); 
PStorel[RBas6PageO, RIData]; 
GOTO [RlSotStart]; 
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SET TASKfRBTask]; 
ONI'AGE [RBPage]; 

* Timor wakoup occurred on output,. 

ROWake: RStackSave <- pRSImago, AT [fiOWakel-OC]; 
T <- (aetRSpec[l03]) XOR (3//C); 
RStackSave <- T, SfKP <• RStackSavo, NoReatLockOK; 
$RODilDisp[RStato]; 
DISP[ROIdle], T < Stack <- (Stack) AMD (376C); 

* Idle ouLput state. Used for idling line and sending stop bits, 

ROIdlo: GOTO [ROSondBit], T <• Stack <- (Slack) OR (IC), ■ AT [ROOi tloc, 0]; 

* Get next input cliaractei". Notify frame code. 

* If wo liave a character, send .start bit. If no character to bo sent, idle line. 

ROStart: SKIPON [R<0], RState <- (RState) OR (QRR[ROActi vo ! , RXActi vo ! IC ) ,A r [ROBitLoc, 
LOADTlHER[RFraineTiriierlJ; 
T <- (RPtrCSB) + (RlndexCharOut) ; 
PFetchl[RBasePaqeO, RODataj; 
T f (RDataMnsk) AMD ( RDataSizeHask) ; 
SKIPON [R>=0], ROData ' ( LSH[RODa ta , 10] ) OR (T); 
GOTO [ROIdle], RState <- (RState) • ( ROBStatelncr) ; 
r <■ Stack; 
GOTO [RONoxtSlate], RS232 <- T; 



1]; 



* Send data bit 

ROSendChai-: T <■ I DF[R00ata , 7 , 1] , 

RState < (RState) XOR (T); 

T < Stack <- (Stack) OR (T); 
ROScndllil: RS232 ♦- T; 

DHI.GOTO [RONextState, ROSetTimor, R ODD], ROData <- RSllLRODatn , L] ; 
RONoxtStato: RState <- (RState) i (ROBStatelncr); 
ROSetTimor: STKP < RStackSave; 

ADDTOTIMERf ROPul 1 R i tTo] ; 
ROl.oadTimer; TU < (RDataMask) AWD (RDataSlow); 

SKIPON [ALU//0]; 

RETURN; 

NOP; 

NOP; 

GOTO [RTimorRoturn], i OAD riMER[ ROFul i» i tM i ] ; 
ROSetTimcrl: GOTO [ROToad f inier ] , LOADTIMER[ ROFk 11 Bi tLo] ; 

* Send parity bit if parity sot 

ROParity: T <- $RStopBi ts[RDataMask] , 

$RParityDisp[RDalaMask]; 

DISP f ROPai-NoMo], nOOata <- T; 
ROParNono: GOTO [ROIdlo], RState f (RState) AND NOT ( ROBStatoMask) , 
ROParOdd: GOTO [ROParFvon], RState <- (RState) XOR ( ROPari tyMask ) , 
liOParEven: GOTO [ROParSend], T <- TDF[RState, ROParityBit, 1], 
ROParOno: GOTO [ROPa rSond] , T <- IC , 
ROParZoro: GOTO [ROPai-Send] , T <- OC , 
ROParSond: T <- Stack <- (Stack) OR (T); 

RS232 <- T; 

GOTO [ROSetTinier], RState < (RStato) AND NOT (ROBStatoMask); 

* Idle states, used For idling line and sending break 

Stack <• (Stack) OR ( IC) , 
RETURN, STKP < RStackSave; 
GOTO [ROSetTimor], 



AT I ROBitLoc, 2]; 



AT [ROBitLoc, 3]; 



AT [ROParLoc 
AT [liOParLoc 
AT [ROParLoc 
AI [ROParLoc 
AT [ROParLoc 



AT [ROBitLoc, 4]; 
AT [ROBitLoc, OJ; 
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SET rASK[RBTnsk"|; 
OMPACr: [fiBPage]; 

* Notify fraino task that poller has v;ork 

RPTurnon; SKII'OM [R<0"|, RState «- (RStato) OR (0U9[r(PAc ti vo ! , RXAct i ve ! 'IC) , AT [RFWakeLoc] ; 

L0ADTIMER[RrrainoT1morl]; 
RTiiiierRoturn: NOP; 

RETURN; 
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SET TASKlRFTask]; 
ONPAGC [RFPaga]; 

* Fpamo dispatch codo 

* The r raiiio codo viorks in the following way; 

' VJIionover the input bit code, output bit codo, or poller code has some woric for the 

* frame tasl< to porform, it set the appropriate bit in HState indicating work has to 

" be done (filActive, OOActive, or RPActive) and then it' the frame codo is not currently 

* running (RXActivc indicates frame codo running), it aots RXActive ;Mii loads RF ramel inierl 

* vrith a short timer. V/hen this timer expires, control is passed to the following 

* instructions. They simply do a RKTURN with UseCTask set to return to the last place 

* the frame code did a TA.SK. In addition, they reload the tiniar, so that after the next 

* fASK, the frame code will again get control. The frame code can then run us though it 

* were a normal task doing KCTURNS to give control to others. When it has finished 

* processing, it check the filActivo, ROActive, and RPActive bits ifi RState to see if 

* more work needs to bo done. If not, it clears RXActive and idles the frame timer. 

UseCTask, AT [RFWakel.oc]; 
RFTURN, fOADTIMER[RFrameTimerl]; 

* The following code is used to initially set registers and the TPC for the frame task. 

SET TASK[0|; 

I «- no, AT[RS232Startl.oc.l; * Notify frame task at RSZ3ZStartl 

RO «- $RSctDisptorRFTask,RS232StartLocl]; 

HO < (RO) OR ($RSetUisplli[RFTask, RS232S tartLocl] ) ; 

Ai'C&APCTask «- RO; 

RETURN, RO <- f; * Restore RO 

SET TASK[RFTask]; 

RFrameTimerl <■ ANDQf RFShortTimcrLo , 377"1C , AT f RS232StartLocr| ; 

RFrameTimerl <- (RFrameTimerl) OR ( ANO0[RFShortTimerLo , ly/IOOlC) ; 

RliasePagoO <- OC ; 

RliasePagcOl.o <- OC ; 

RState ^ OC; 

RPtiCSl! '- AND0[RSZ32CSBLoc,377]C; 

GOTO [RChkActiveJ, RPtrCSli «- (RPtrCSO) OR (AND(9[RS232CSIJI.oc , 177400]C) ; 

* Checks to see if any part of RS232 code desires service. If so, the appropriate code is 

* branched to. If not, the frame timer is turned off to kill the frame wakeups . 

RNonoActive: RTomp2 <- (RTcmp2) OR ( AND0[ RFIdloTimerLo , 17740O'|C ) ; 
tOAUriMER[RIemp2]; 
NOP, TASK; 
RState <• (RState) AND NOT ( RAct i veMask) ; 

RChkActive: 1-U *- (RState) AND (RIActive); * Check input active 

GOTO [RIFrameStart , ALU//0], LU <- (RState) AND (ROActivo); « Check output active 
GOTO I ROFraineSlart, AlUZ/O], LU <^ (RState) AND (RPActive); * Chock poller active 
DI1I.G0T0 I RPollerStart, RNonoActive, AI.U//0], lUumpZ <- AWO@[ RF Id leT inierLo , 377 ]C ; 
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SET TASK[nFTaskl; 
ON PAGF„[RrPannj; 

* Poller. Updates ToDCE bits and checks FroinDCE bits notifviiig tho user when tho bits 
" change. Also, handles commands 

RPonorStart: T *- (RPtrCSn) i- ( RlndoxToDCF.) ; 

CALL [RRTask], PI o tch2[RBasePagoO , RPToiKE!; 

* Process commands. Tf break in progress, shift bit in ROData to tho 

* right. When It makes ROData ODD, break if finished. Cloar break 

* in |)i-ogress and restart transmitter. 

LI) <- (RStato) AND ( RBroakliiP rog ress ) ; 

GOTO [liPDoCmd, ALU-0], $RPCmdD i sp[RPToDCt".] ; 

GOTO ffl'CmdE, R> = 0), ROData >- (ROData) - 1; 

GOTO fRPStartXmtr I', RState * (RSlnte) AND flOT (RBrcaklnProgress) ; 
RPDoCmd: DISP[. + L]"; 

Commands 

- Command proccossed 

1 -- Nop 

2 = Reset 

3 - startRoco iver 

4 = startTransmi ttei' 

5 = Stop Receivei- 

G '= Stop Transmitter 

/ = Send Ureak 

10 = Set Parameter 

IT = Ciear Ring Indicator 

12 -^ Clear break detected 

13 = Clear Data Lost 

* Coniniand - => Command processed 

* Don't touch command field in case Mesa is in middle of storing a command, 

RPNoCmd: GOTO [RPCmdEl], AT [RPCmdLoc, ;| ; 

* Command = 1 => NOP 

" Sot command field to zero. Used to make sure poller is aiive. 

RPNop; GOTO [RPCmdE], AT [RPCmdLoc,!]; 

* Command = 2 -> Reset 

* NOP for now. ** DO WE NEED THIS COMMAND? «* 

RPReset: GOTO [RPCmdE], AT [RPCmdLoc , 2] ; 

* Command = 3 -> Start Receiver 

* Start receiver timers and set input state to waiting for start bit 

RPStartRcvr: LOADPAGEf RBPage] , AT [RPCmdi oc , 3] ; 

CALLP[RfSetStart]; 
GOTO [RPCmdE], RState <- (RState) AND NOT (RHiStatoMask) ; 

* Command = 4 -> Start transmitter. 

* Set transmitter timers and set output state to sending idle. 

RPStarlXiiilr: T «• (RPtrCSB) + ( RIndoxCharOut ) , AT [RPCmdLoc , 4] ; 

RTomp2 *- lOOOOOC; 
l'Storel[RBasoPageO, RTemp2]; 
LOADPAGE[ RBPage]; 
CALLP[ROSetT imerl]; 

RState <■- (RState) AND NOT ( ROBStateHask) ; 
GOTO [RPCmdE], ROData <- 2 00C; 

* Command = 5 => Stop receiver. 

* Set idle timer for receiver bit code. 

RPStopRcvr: RTomp2 <- AND0[RI Idl eTimerL o , 177400]C , AT [RPCmdLoc , 5] ; 

RTemp2 <- (RTemp2)"0R ( AND@[ Rlld loTimerLo , 377]C ) ; 
GOTO [RPCmdE], L0ADTTMER[Rtemp2] ; 

* Command = 6 => Stop transmitter and idie line. 

* Set short timer and sot line to 1. 

RPStopXmtr: RState *• (RStato) AND NOT (ROBStateMask) , AT [RPCmdLoc, 6]; 

RState <- (RState) + (R0BStateIncr4) ; 

RStackSave <- pRSImage; 

T <- (GetRSpec[103])' XOR (377C); 

RStackSave <- t, STKP ^ RStackSave, NoReglLockOK; 

T *- Stack <- (Stack) OR (IC); 

STKP <- RStackSave; 

RS232 ♦- T; 
ROShortSet: RTemp2 *- AND@[ROShortTimerLo , 177400]C ; 

RTemp2 <- (RTemp2) OR ( AND@[ROShortTiraerLo ,377]C) ; 

GOTO [RPCmdE], L0ADTIMER[RTemp2]; 

* Command = 7 => Send Break 

* Set output state to sendbreak, enable break timer, and set short timer 

RPBreak: RState «- (RState) AND NOT (ROBStateMask), AT [RPCmdLoc ,7]; 

RState <- (RState) + (ROBStatelncrS) ; 
ROData ♦- 62C; 
GOTO [ROShortSet], RState <- (RState) OR ( RBreaklnProgress) ; 

* Command = 10 => Set Parameters 

* Load registers from DO memory 
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RPSotParm: T <- (RPtrCSB) >■ ( RIndoxParm) , AT [RPCnidl.oc, 10] ; 

CALI. [liFixBaseRey], PFetch2[nUasePaneO , riRulUJasol; 
PI'Otch4[llBuf0aSQ, RIFiinBilLo.O]; 
CAll. [RRTask], PFe tcli2[Rnuf3ario , ROFunDitLo ,4 ] ; 
GOro [RPCnulE;|, PFotchl[RBufBaso, RDataMask, 8;| ; 

* Command -• 11 => Cloai- Ring Indicator 

RPRing: GOTO [UPCmdF.], RPFromDCF. <- (RPrroniDCE) AND HOT ( RFromOCER iiig) , AT [RPCindLoc , 11] ; 

* Command " 11 => Clear Break Detected 

RPNoDroak; GOTO [RPCnidE], RPFromDCE <- (RPFromDCE) AMD NOT ( RFromDCEBrouk) , AT [RPCwdLoc, 12] ; 

* Command - 11 => Clear Data Lost 

RPLost: GOTO [RPCmdE], RPFromDCE *■ (RPFromDCE) AND HOT ( RFromDCELos (. ) , AT [RPCmdLoc , 13] ; 

* Clear command field 

RPCmdE: RPToDCE <- (RPToDCE) AMD (377C); 

T <- (RPtrCSB) + (RIiidoxToDCE), TASK; 
PStorol[n3a.sePageO, RPToDCE]; 

* Set ToDCE bits. 

RPCmdEl: RStackSavG -^^ pRSlmage; 

T < (GfitRSpoc[103]) XOR (377C); 

RStackSave <- T, STKP »■ RStackSave, NoReglLockOK; 
T < (liPfoDCE) OR MOT ( RToDCFMask) ; 
Stack <■ (Stack) AND NOT ( RToDCEMask) ; 
T « (Stack) ♦- (Stack) OR NOT (T); 
RS232 <- T, TASK; 
STKP <- RStackSave; 

* Chock FromDCE bits and post user if they havo changed. Note that the bits are negative 

* logic. Also, RPNew will! contain any non-hardvjare bits that have to be set (like 

* Oatatost, DroakDetected , BreaklnPi-og ress) . 

T <^ (RS232) OR NOT ( RE romDCEMask) ; 
RPNew « (RPNow) OR NOT (T); 
T <- (RPFromDCE) AND NOT ( RNo tl.atchedMask ) ; 
RPNow «- (RPNow) OR (T); 
T <- (RPtrCSB) I (RIndexFromDCE) , TASK; 
PStorol[RBasoPageO, RPNow]; 
T <- RPFromDCE; 
LU <- (RPNuw) XOR (T) ; 

GOTO [UNoDCEChango, ALU=0], T < (RPtrCSB) 1 (RIndoxMask) ; 
NOP; 

CALL [RPost], PFetchl[RBasePagoO,RTempZ]; 
RNoDCECIiango: RPNew' <0C; 

GOiO [RChkAct ive], RStato *- (RState) AND NOj (RPActivo), 
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SET TASK[!!FTask]; 
OH PAGE[nFPagel; 

" Input evont, hnve received a character. Dispatch on Input event, 

* Fvents are: 

* => Received n good character. Store It in lOCB bufroi'. 

* 1 => Hoceived break. Signal Break detected, 

* 2 => Received character with parity error. Set error and r.tore character in tOCB, 

* 3 => Received character with Franieing error. Sot error and .store character in lOCB. 

lilPraiiieStart: CALL [RCetP trlOCB], T <• (RPtrCSH) i- ( RIndexIOCUIn) ; 
RLState '- (RFStnte) OR (RFStatelnput ) ; 
CALL jRGetPtrs], U.seCTask; 

GOrO [RIOataLost, ALU = 0], T <- ,$.RIF.ventDi sp[ROatal ; 
DISP[.tl], RTemp? «- RStatFrainoErr; 

' Events are: 

* -> Character received OK 

* i -■■> Break received 

* ?. -> Parity error 

* 3 ==> Framing error 



GOTO [RIStorcChar], 

GOTO [RIKinishl, RPNcw f- (RPNow) OR (RFronil)CEBroak) , 

RTeinp2 <^ RStatPari tyErr, 

NOP, 

CALL [RSetStatusl; 



AT [RIFvontLocO]; 
AT [RIFventLoc,!]; 

AT [RIFvontLocZ]; 
AT [RXLventLoc,3]; 



Character received, store it in buffer. If not enough room in buffer, advance to next 
lOCB unless RCmdFnd set in which case sot DATALOST and wait for frame to end. 



I- 1; 



* Verify root-i in buffer 



RTStoreChar; CALL [RRTask], T <- (RRCount) «- (RRCount 

LU < (RMaxCount) - T; 

GOTO [RtBufSpace, ALU> = 0"|, LU <- (RCommand) AND (RCmdFnd); 
RIMufFun: GOTO |R[HustEnd, ALU//0 ] , RRCount <■ (RRCourrt) - 1; 

NOP; 

CA) I- [RDonoIOCB]; 

GOTO [RlStoroChar]; 
RIMustFnd: CALL [ R.SotStatus J , RTemp2 <- RStatLost; 

GOrO [RIDoBCCJ; 

* Room in buffer. Store character in buffer. This is slightly complicated due to the 

* fact Lliat we are storing a byte rather than a word. ROf f set+RRCount gives the byte 

* offset into the buffer. 



RIBufSpace: ROffSet <- (ROffSet) ■>■ T; 

ROffSet < (ROffSet) - 1; 

GOTO [RIStoretven, R FVENJ, T <- RSll[ROf f Set , 1] ; 

PFetchl[RnufBase,RTGnip2]; 

r f- RIIMASK[RI)ata I, CALL[RRTask| ; 

RTemp2 t- ( LHHASK[ RTeiiip2 J ) OR T; 

GOTO jRIDoStore]; 
RIStoroEvon: f <- LSII[ RDa ta, 10] ; 

RTemp2 <- T; 
RIDoStore: T <- RSIIL ROT fSe t , 1] , TASK; 

PStorel[RBuFBase,RTemp2]; 
RIDoBCC: CALL [RDoBCC]; 

* Now dispatch on frame state 

* States are: 

* => Just inputted a character, chock if special case 

* 1 -> just inputting first part of BCC, inci'cment state 

* 2 => Just inputted second half of BCC, check it and end frame 

* 3 => counting down to end of frame, if RFState<0 end tlie frame 

$RFStateDisp[RFStato]; 
DJSP[. H]; 

* State = 0. Normal state, check if special type of character, 

* Special types are: 

* ~> not special type. Do nothing. 

* 1 => BCC starts accumulating AFTER this character. Set RDCC <- 

* 2 => BCC received AFTER this character. Increment FStato to receiving BCC state. 

* 3 => Frame ends in n characters. Set FState to countdown to end of frame. 



$RICharDisp[RTemp2], 

DISP [.+1], RTempZ <- (LDF[RTemp2 , 16 , 2])-! ; 

GOTO [RIFinish], 

GOTO [RIFinish], RBCC *- OC, 

GOTO [RIFinish], RFStato ^ (RFState) + ( RFStatelncr) , 

T ^ LSil[RTemp2, 14], 

RFState <- (RFState) + ( RFStateIncr3) ; 

GOTO [RICheckEOF], RFState *- (RFState) OR (T); 

* State = 1, Inputting first half of BCC. Increment FState 

GOTO [RIFinish], RFState «- (RFState) + (RFStatelncr), 



AT [RIFrameLocO]; 

AT [RISpecLocO]; 
AT [RISpecLoc.l]; 
AT [RISpecLoc.2i; 
AT [RISpecLoc,3i; 



AT [RIFrameLoc,!]; 



* State = 2, Got second half of BCC. Check tliat accumulated BCC is equal to zero 

* and set BCC error if not. Then end the frame. 

LU «- RBCC, AT [RIFrameLoc,2]; 

GOTO [RIBCCOk, ALU=0]: 
NOP; 

CALL [RSetStatus], RTomp2 ♦- RStatBCCErr; 
RIBCCOk: GOTO [RIEndF rame] , RFState <- (RFState) - (RFStatoIncr2) ; 

' State=3, Ending frame after n characters. Decrement top part of RFState checking it 

* first to see if has gone negative. If it has, end of frame has occurred, so reset 

* FState and end the frame. 
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RTCIieckEOF: SKIPOM [R<OJ, RFState <- (RFState) - ( Ri-Counllncr) , AT [RIFrameLoc ,3"J ; 

GOTO [FilTinislO; 

RFStatG <- (RFSlatG) - ( RFStateTncr3) ; 
RlEiidFramo: RFState <• (RFState) AND NOT ( RFStateCoun tOits ) ; 

CALL flfDoiielOCBl; 

SKIPON [ALU-OJ.LU <- ( RConiniand) AMD ( RCitidStart) ; 

DnLGOTO [RIEiidFranie, RIFiniah, ALU-0]; 

GOTO [RlNoSavo]; 

* Save renisters in lOCB 

* Save registers in CSB 

* Check for moro work 

RIFinisli: CALL [RSavelOCC'l ; 

RINoSave: CAl L [RSavoCSR], T <- (RPtrCSB) h ( RIiMlexTOCnin ) ; 

GOTO [RCIikActiveH, RState <• (RStato) AND NOT (RIActive); 

* No input lOCn, mark Data Lost 

* Currently DataLosL is set when a hreak comes in v/ithout any lOCBS. 
' (This is' MOT CORRECT! ! ! !) 

RTDataLost: GOTO [RTNoSnvo], RPNew <- (RI'Now) OR ( RFromDCELost ) ; 
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SET TASK[nFTask"|; 
ONPAGE [RFPage]; 

* Output character has been sent. Load up registers. 

ROFrameStart: CALL [RGutP trIOCB] , T <- (RPtrCSR) + (RXndHxIOCBOut.) ; 
CALL [RGetPtrs], UseCTask; 

* Need a character. Dispatch on .stato 
" States are: 

* -> Just sent a character. Cot next charactfir from TOCfl, 

* 1 => Just sent character before BCC. Send first half of UCC . 

* 2 => Just sent first half of BCC. Send second half of DCC. 
'" 3 => Just sent last half of BCC. Idle transmitter. 

* 4 => Just idled transmitter. Signal lOCB complete. 

RODis patch; $RI-SlateDisp[RFState] ; 

DISP[.H], T <■ RRCount <- (RRCount) - 1; 

* A character has been sent, see if any more characters in buffer. 

* If notliing in buffer, ciicck F.ndFraine bit and if set, end the frame. 

nOChockCount : GOTO [ROGotChar, ALU> = 0'|, LU <• (RCommand) AND (RCrndLiid), AT [ROKrameLoc , 0] ; 

GOTO [ROF.ndFramo,ALU//0], RRCoiuit <- (RRCount) -i- I; 
RONexLJOCB: NOP; 

CALL [RDonelOCB]; 

GOTO [RODispatciii; 

* Got character, send it. Again, things arc slightly complicated by the fact that wo 

* ai'o sending a byte I'ather than a v;ord. 

ROGotChar: T «- (RMaxCount) - T; 

ROffSet «- (ROffSct) i- T; 

ROrrSet <- (ROffSet) - 1; 

r <• RSIIf ROffSet, rj, TASK; 

PFotchliRBufBase, RData'|; 

GOTO [ROSondOdd, R ODO'f, LU <- ROffSet; 
ROSoiKirven: GOTO [RODoBCC], RDala <- RSH[ RDa la , 10] ; 
ROSondOdd: GOTO [RODoBCC], RData <- RllMASK[i!Data]; 

* End of frame, since wo got hore, we must want to end frame, so set state to idling 

* transmitter. 

ROFndFrame: RFState *- (RLStato) i- ( RFStatoIncr4) , CALI,[RR Task ] ; 
GOTO [RONoSave], RData <- lOOOOOC; 

' Just sent character before BCC, send first BCC character and increment state 

ROSendBCC: T *- R1IHASK[RBCC | , AT [ROFrameLoc , 1] ; 

RData <• f, CALL [RRfask]; 
ROlncrFrame: GOTO [ROHoSave), RFState < (RFState) i (RFSlaloLncr) ; 

* Just sent first half of BCC, send the second half. 

GOTO [ROSondRCC], RBCC *■ RSII[RBCC , 10] , AT [ROFrameLoc,?]; 

* Just sent second half of BCC, look for more characters 

ROIdleXmtr: RFState <- (RFState) • ( RFStateIncr3) , AT [ROFrameLoc ,3] ; 

GOTO [ROCheckCount], LU «- RRCount; 

* Just idled transmitter, mark lOCB complete and advance to next lOCB 

GOTO [RONextlOCB], RFState <- (RFState) ■ ( RFStatelnc r4) , AT [ ROF rameLoc , 4] ; 

* Calculate BCC and check for special characters 

* Savo lOCB registers 

* Save CSB registers 

* Check for more work 

RODoBCC: CALL [RDoBCC]; 

$RICharDisp[RTemp2]; 

DISP [.HJ; 

GOTO [ROFinish], AT [ROSpecLoc , 0] ; 

GOTO [ROFinish], RBCC «- 00, AT [ROSpecLoc,!]; 

GOTO [ROFinish], RFState <- (RFState) + ( RFStatelncr) , AT [ROSpecLoc,?.]; 
ROFinish: CALL [RSavcIOCB], AT [ROSpecLoc ,3] ; 

RONoSave: CALL [RSavcCSB], T *- (RPtrCSB) *• (RIndexIOCBOut) ; 

GOTO [RChkActive], RState <- (RState) AND NOT (ROActive); 
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SET TASKLRFTaskJ; 
ONPAGr:[Rl-Pafjo;i;' 

* Finish off lOCD buffor. If status is zero, set status to success, 

* Dequeue lOCB from chain. Issue naked notify, 

* If new lOCO exists, reload registers from lOCB . 

UDonelOCU; UseCTask; 

T <- AI'CaAPCTask, TASK; 

RSavG f- T; 
RDonnlOCDiaU f- ( RConip ) AND (RCinpStatus) ; 

SKII'ON [ALU//0]; ■ 

RComp <- (RComp) + (RStatOk); 

CALL [RSaveTOCR], RComp <- (RComp) OR (RCmpProc); 

CALL [RHoxtlOCIi], T ♦- (RPtrlOCR) t- ( RIndexNox t ) ; 

T <- (RCommand) AND (nR0[RCmdWakeAn ! , RCmdWakelirr! ]C) ; 

LU <- (RComp) AND T; 

GOTO [RGctlOCB, ALU=0], T «- (RPtrCSB) ■'■ ( RIndexMask) ; 

NOP; 

CALL [RPost], PFetchl[RBasePanoO, RTeir!p2!; 

GOTO [RGetlOCB]; 

* Get buffer pointers. 

RGetPtrlOCB: RETURN, Prctch4[RBasePagoO , RPt rIOCB] ; 
RGetPtrs: T <- APC&APCTask; 

RSave «• T; 
RGotlOCB: T '• RPtrlOCB; 

GOTO [RNoIOCB, ALU-O]; 

CALL [lUirask I, PI-otch'l[RBasoPanoO,RRufnasel; 

T «- (RPtrlOCB) I- (RiMdexCount) ; 

CALL [RFixBasoRegJ, PFe tch4[RBasePngoO , RRCount]; 

GOTO [I'SubRoturn); 

* Wliat to do if wo don't have an lOCB! 

* On input, retucn to caller and let him decide if he wants to set Datal.ost 

* On outpirt , idle 1 ine 

RNoIOCB: DBlGOTOf RINoIOCB , RONoIOCB, R ODD], LU ' RFState; 

RINoIOCB; GOTO [RSubRoturn ] ; 

RoNoIOCB: GOTO [RONoSave|, RData <- lOOOOOC; 
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SET TASK[UFTask]; 
OMPAGE[f!rPagQ];' 

* Accumulate DCC 

RDoUCC: UseCTask; 

r <- APC&APCTask, TASK; 

RSave <- T; 

T <- (RPtrCSB) + (RCndoxCCCTablo); 

CALL [RFixBaseReg], HFo tch2[RDasePageO , RBufBaso]; 

T < RData; 

T <■ (RHMASK[R[5CC]) XOR (T), TASK; 

PKetchl[RBurDase,RTomp2]; 

T <- (RTempZ) ; 

Race <- (RSH[RBCC,10;]) XOR T; 

* Load character type from oiidoft'rame table. 

* Types of characters 

* 0= normal 

* l=start BCC 

* 2 = end IJCC (io goiierato or chock BCC). Implies end of block on input 
" .■) = end of block 

RChockSpec; T <- (RData) + (lOOC); 

CALI [RRTask], PLotchl [RniifBase, RTomp2]; 
RSubReturn: APC&APCTask <- RSavo; 
RRTask: RLTURN, LU ♦- RPtrlOCB; 
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SET TASKfRFTaskJ; 
ONPAGI-:[RFPage]-, 



• t'ix up base register. 

PCixUaseneq; T t- { LSII[RBurGassl.o , 10]) ^ 1; 

tiKTURN, RBuffiasoLo <- ( RfiufBaseLo) Oft (T) 



' Set completion status. IT no previous error, sot status in lOCB and set error. 

RSotStatus; LU *- (RCoinp) AND ( RCmpStatus ) ; 

GOTO I'RRTask, ALU/ZO], T ♦- (RTempZ) OR ( RCnipE rror) ; 
RETURN, RConip «- (RComp) OR (T); 



* Save lOCn ptrs. 

RSavelOCri: T <- (RPtrXOCfi) ^ ( RlndexCount) ; 

RETURN, PStoce4[RI)asel'ayeO, RRCount]; 



* Save CSn ptrs. 

RSnvoCSR: PKetclil[RBasePa()oO , RPtrlOCB]; 

LU <- RPtrlOCB; 
RETURN, PStoro1[RBasoPageO, RPtrlOCB]; 



" Point to next lOCB. This has to bo done without TASKini). 

RN'extlOCB: PFo tr,hl[RRasePageO , RNoxt]; 

DBl.GOTO[.+l, . 12, R ODD], LU *- RFState; 

GOTO [.^2], T <- (RPtrCSB) i- ( RTndoxIOCBIn ) ; 

GOTO [.H], T < (RPtrCSB) i- (RlndoxIOCBOut) ; 

LU <- (^Nuxt; 

PStorol[RRasGPageO , RNex t] ; 

r <- RNext; 

RETURN, RPtrlOCB <- T; 



* Post Complete 

RPost: RStackSave < pNWW; 

T (- (GotRSpec[103]) XOR (37/C); * read stkp 

STKP «- RStackSavo, RStackSave <- T, NoReglLoekOK; 

T «- R rump 2; 

Stack <- (Stack) OR (T); 

RTeiiip2 <■ pRSIiiiago; 

STKP ^ RTemp2; 

T *- Stack < (Stack) OR (IOC); 

RS232 <■ T; 

RETURN, STKP <^- RStackSave; 

END; 
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iiisert.[l!S23ZAsync]; 
irisert[[iS232Test]; 



FND; 
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insert[(J01ang]; 
NOMIDASINlTjLANGVERSION; 
TITLE [r(S232DitJ; 

* DO microcode for bit sj/richronous RS232C 

* l.ust modified by BRD on August 20, ,10/9 1:12 PM fix GlobalDofs conflicts 

* modified by Bf!D on Juno 1, 1979 12:13 PM 

insert! GlobalDefs] ; 
in.sort[RS232DefsJ; 

SET TASK [HBTask]; 
ON PAGE [ROPageJ; 

" Tintei' walceup occurred on input. Get input bit and check if zero or ono bit 

ItlWako: T <■ (RS232) AND (RTZ32Data), AT [ lUV/akoLoc J ; 

OnLGOrOfJitFoundZero, RXroundOno, ALU = 0], RUCount < {(TtlCount) •■ 1; 

* Zo ro b i t 

* RnCount > = = > normal: sliift this bit into charactei' if lino in sync 

* RllCount = = = > 5 onos in a row: this is a fill zero so tlirow it away 

* RUCount < =-> special character, either- fiag or abort 

RIFoundZero: GOTO[ RICheckSpec , ALU<0], LU ^ (RllCount); 

DOEGOTO [lUShif tChar, RISetTimer, AEU//01, RllCount <- 6C ; 



* RllCount > 20 ==> line idle: set count to 21; 

* RtlCount > =-> normal; shift this bit into character if line in sync 
" RllCount <= "> inside special character, ignore bit 

* RllCount = -20 ==> line is idle: signal frame task, and set count to +21 

RtFoundOne: COTO[ RTCheckldl c , ALU>=0], LU < (RUCount) + (20C); 

.SKIPOH [ALU//0]; 

GOTO [RISignaiTdlo], RllCount <- 2 IC ; 

GOTO [RTimorRoturn I, LOADTIMER[ R ISyncT ime r] ; 
RCCheckldle: LU *■ (RllCount) AND (20C); 

GOTO [RISbiftCharl, ALU=01; 

RllCount <- 21C; 
RlSh iftCharl: GOTO [ RIShi f tChar ] ; 
R[NoxtChar:Rinata <- 200C; 
RISetTimer: GOTO [ RT imurRetu rn] , LOADTIMF R[ RISyncTime r] ; 

* Siiift in character. 

RIShiftChar: SKIPON [R ODD], RIData <• ( RS1I[ RlDa ta , 1] ) OR (T); 
GOTO [RTimorRoturn ], LOADTIMtR|; RISyncTime r] ; 

* Have a character, decide if a valid one 

* States arc: 

* => line idle, ignore citaracter 

* 1 => line in sync, notify fj-amo code 

* 2 "> line in frame, justify character and notify frame code 



SRIBi tDisp[RState]; 

DISP[.H]; 

GOTO [RINextChar], 

RState <- (RState) + (RIBStatelncr) , 

GOTO [RITurnOn], 



AT [RIB1tLoc,0| 
AT I RlBitLoc, i.'] 
AT [RIB it Log, 2] 



* Special character, dotermino if idle ( RIlCount=^-l) or aboi'l (RllCount<-l) 

RICheckSpec: LU <• (RllCount) ^ 1; 

OnLGOTO[RISignalFlag, RISignal Abort , ALU = 0J, RllCount <■■ 6C ; 

* Have a flag. Dispatch on state 

* States are: 

* => lino idle, increment state 

* 1 => line in sync, ignore 

* 2 => line in frame, signal endofframe, decrement state 



[RIBStatelncr), AT [RIFlagLoc, 0] ; 
AT [RIFlagLoc, 1]; 
AT [RIFlaqLoc,2]; 



RISignal Flag: $ RIB itDisp[ RState]; 
DISP[.+1]; 

GOTO [RINextChar], RStato <- (RState) -' 
GOTO [RINextChar], 
RState «- (RStato) - (RIBStatelncr), 
GOTO [RITurnOn], RIData <- RIDataFlag; 

* Have an ABRT. Signal frame code 

RISignalAbort: RState < (RStato) AND NOT (RIBStateMask) ; 
GOTO [RITurnOn], RIData <- RIDataAbrt; 

* Have detected an idle line. Decide if should notify frame task 

* States are: 

* => line idle, ignore 

* 1 => line in sync, set state to idle 

* 2 => line in frame, notify frame task and set state to idle 

RISignalldle: $RIBitDisp[RState] ; 
DISP [.+1]; 

GOrO [RINextChar], AT [Rlldlel.oc, 0] ; 

GOTO [RINextChar], RSTate «- (RStato) AND NOT (RIBStateMask), AT [ RU(}^ oLoc , l] ; 
RState *- (RState) AND NOT (RIBStateMask), ' AT [RIIdleLoc , 2] ; 

GOTO[RITurnOn], RIData *- RIDataldle; 
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* Notify franio code that someUiing happened 

niTurnOn: SKIPON [R<01, RSlate <- (RState) OR (0:!e[RlAet Ivo ! , RXAc t1 vol'IC) ; 

LOAD r IMF:r[ RF i-ainoC ime rl] ; 
r <- (RPlrCSD) I- (RIiKloxCharIn); 
PStoroX[RlJasePageO, RIDataj; 
GOTO [RKJnxtChar]; 
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SET TASK [RBTask]; 
ON PAGE [RBPage]'; 

* Tinier wakeiip occurred on output. 

ROVy'ake; RStackSavo <- pRSImayo, AT [ROWakeLoc'i; 
T <-■ (GotRSpec[1031) XOR (377C); 

RStackSuve «- T, STKP <^ RStackSavo, NoReqILockOK; 
$ROBitDisp[RStato]; 
DISP[.H], T ♦- Stack <- (Stack) AMD NOT (IC); 

* Send zero and notify task if count < 0. Otherwise, sv/itcii to .sending ones 

ROSendZoro: RS232 ^ T, AT [ROBitLoc, 0]; 

r.OTO [ROTurnonO, R<0], LU <- ROtCount; 

RState <- (RStntd) i- (ROOStatoIncr) ; 
ROSetTimer: GOTO [ ROStackRosetl , l-OADTIMh:R[ R03yncTimcr| ; 
ROTurnonO: RState ♦- (RState) + (RORStatotncrZ) ; 

GOTO [ROTurnon], ROlCount <- 4C ; 

* Send one and switch state to SendZero if ROTCounl < 

ROSondOne: T >~ Stack <- (Stack) OR (IC), AT [ROBitLoc,!]; 

GOlO rnOSoiidlt, R>-0], ROlCOunt <- (ROlCount) - 1; 
GOTO [ROSendlt], RState <■ (RState) - ( ROBStatelncr) ; 

* Send next character bit 

GOrO [ROInsert, R<0], ROlCount (- (ROlCount) - 1, AT fROBitLoc, Z|; 

T *- LDF[ROData, 7, 1]; 

SKIPON [ALU//()],T <- Stack ♦- (Stack) OR (T) ; 
ROlCount *• 4C; 
RS23 2 <- T; 
ROSondHit: DBLGOIO [ROTurnon, ROSetTimer, R ODD],ROData «- RSH[RODa ta , 1] ; 

* Idle state used to idle lino 

GOTO [ROStackReset], Stack <- (Stack) OR (IC), AT [RODitl.oc, 3j; 

* Need to insert a zero. Output zero hit and reset one b^t counter 

ROInsert: ROlCount <- 4C; 

ROSondtt; GOlO [ROSetTimer], RS232 <- T; 

* Got next character to bo sent and notify fame task work needs to be dotie 

* Notify frame task that output has work 

RO fu rnOn : LOADT I M E R [ ROSy n cT i me r] ; 

T <-- (RPtrCSB) + (RIndexCharOut) ; 

Pretchl[RUasoRageO, iHJData]; 

T ♦- 200C; 

GOTO [RONotriag, R>=0], ROOata *- ( LSII[ROData , 10] ) OR (T); 
ROSendflag: ROlCount «- 4C ; 

RState < (RState) - ( R0BStateIncr2) ; 
RONotFlag: SKIPON [R<0]. RState <^ (RState) OR (OR0[ ROAc t i ve ! , RXAct i ve ! ]C ) ; 

LOADT IMrR[ RE rameTi men]; 
ROStackReset: GOTO [ Rfimo rRc turn] , STKP < RStackSavo; 
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SET TASK[RnTask]; 
ONPAGE [RFPngo]; 

* Notify frame task that poVlor has work 

RPTunion: SKJPON [R<0], RStato ♦- (RStato) OR (0R9[RPAct I ve ! , RXActi ve ! ]C ) , AT [RPWakeLoc]; 

LOADTIMF.R[Rrram0Tli;iort]; 
RT iine i-Rotiirn : NOP; 

RETURN; 
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SET TASKfRFTaskl; 
ONPAGE [RFPaoeJ; 

* rramn dispatch code * 
' riio frame code works in tiia i'ol lowing way: 

* Wlinnovor tlio input l)it coda, output bit code, or poller codo lias some work Tor the 
« frame task to perform, it set the appropriate bit in iiState iiidicitinn v;ork has to 

* be done (RIActive, ROActivo, or RPActive) .■iiid then if tho framo code is not currently 

* running (RXActive indicates frame codo running), it sot.s RXActive and loads RFi',<iiiol'inierl 

* vjith a short timer. When this timer expires, control is passed to the foliowing 

* instructions, They simply do a RETURN with IJseClask set to refurii to the Inst placo 

■■" the frame code did a TASK. In addition, they reload the t ihier, so that after tlie next 

* TASK, tlio fraiiiG code will again got conti-ol. The framy code csii tlion I'un as though it 

* were a normal task doing REIURNS to give control to others. Whun it has finished 

* processing, it clieck tlio RIActive, ROActivo, and RPActive bit^ in liState to see if 
» more work needs to be done. If not, it clears RXActive and idles the frame timer. 

UseCTask, AT [RFWakofoc]; 
RFIURN, LOADTiMER[RFramoTimorl]; 

* Tlio following codo is used to initially set registers and the TPC (or the framo task. 

SET TASK[0;|; 

r <• RO, AT[RS232Startl-Oc]; • Notify task at RS232Gtartl 

liO <- ;ERSotDispLo| RFTask,RS232StartLocl]; 

RO ♦- (RO) OR ($liSetDisplli[RFTask, RS232StartLocl ] ) ; 

APC&APCTask <• RO; 

RETURN, RO '• T; * Restore RO 

SET TASK[RFTask]; 

RFrameTimerl < ANDOf RFSIiortT imerl.o , 3771C , AT rilS232Sta rtl.ocl] ; 

RFramoIimert <- (RFrameTimerl) OR ( AND0|RFShortTimGrEo , 1/7400 jC) ; 

RRasePagoO «■ OC ; 

RliasePagoOLo <■ OC ; 

RStato t OC; 

RPtrCSn < AND@[RS232CS!lLoc,377]C; 

GOlO [RChkAct ive], RPtrCSB «• (RPtrCSIl) OR ( AHD@[RS232CSnLoc , t 77400 [C) ; 

* Checks to see if any part of RS232 code desires service. [f so, it is branched to. 

* If not, tlio framo timer is turned off to kill the framo wakeups. 

RNoneActive: Rremp2 «- (RTemp2) OR ( AND0[ RFIdle Fiiiierl o , 17 7400 |C ) ; 
L0ADT]MER[RTemp2|; 
NOP, TASK; 
RState <- (RStale) AND NOT ( RAct iveMask) ; 

RChkActive: LU «- (RState) AND (RIActive); '■ Chock input active 

GOTO [RIFrameStart , Ai.U//0|, LIJ <- (RState) AND (ROActivo); * Check output active 
GOTO ( ROFramoSturt, AI.U//0i, LU <- (RState) AND (RPActive); • Chock polloi- active 
DIII.GOIO [l!Po I lerStai t, RNoneActive, AI.U//0'j, RIe.iipZ ^ A!JOO[Rr id le I imori.o , 37 /]C ; 
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SET TASK[l)FTask]; 
ON PAGE[RrPago]; 

" Poller. Updates ToDCE hits and checks FromDCE bits not Ifyiog the user v/iion tho bits 
'" cliniige. Also, handlos commands 

RPoilerStart: T <■ (RPtrCSO) + ( RIndcxToDCE) ; 

CALL [RRTask], PFt)tcli2[RBasoPaoeO , RPToDCE]; 

" Process commands 

$nPCmdDisp[RPToDCE]; 
inSP[RPNapi; 

* Commands 

* -^ Command proccessed 

* 1 = Nop 

* 2 = RosGt 

* 3 = s tartRoceiver 

* 4 = s tartTi-ansn) i tter 

* 5 = Stop Receiver 

* G = Stop Transmitter 

* 7 = Send Break 

* 10 = Set Parameter 

* 11 == Clear Ring Indicator 

* 12 = Clear break detected 

* 13 = Clear Data Lost 

* Command = => Command processed 

* Don't even clear out command field 

RPNop: GOTO [RPCmdElJ, AT [ RPCmdLoc , 0] ; 

* Command = 1 => NOP 

* Clear out command field 

GOTO [RPCmdE], AT [ RPCmdLoc , 1] ; 

* Command - 2 -> Reset 
' NOP for now 

GOTO [RPCmdE], AT [RPCmdLoc , 2] ; 

* Command = 3 => Start Receiver- 

* Start receiver timers and sot input state to waiting for synchronization 

RlSyncTimer f- AfJD@[RIS.yncTimerLo , 177'!00]C , AT [Rl'CmdLoc ,3] ; 

RCSyncTimer «- (RlSyncTimer) OR (AND@[RISyncTimerLo , 3/7"lC ) ; 

LOADTIMER[RISyncTimer|; 

RllCount <- 2l'C; 

r <• (RPtiCSll) t (RIndoxBCCIn); 

Rremp2 <- (ZERO) - 1;- 

PStorel[RBasel'ageO, RTomp2] ; 

GOTO [RPCmdEj, RState *■- (RState) AND NOT (RIBStateMask) ; 

* Command = A => Start transmitter 

* Set transmitter timers and set output stale to sending idle 

T <- (RPtrCSB) I (RIndexCharOut) , . AT [RPCmdLoc ,4] ; 

RTemp2 ^- lOOOOOC; 

PStorel[RnasePa()oO, RTemp2]; 

ROSyncTimcr <- AND@[ROSyncTimorLo, 177400]C ; 

ROSyncTimer «- ( ROSyncTime r) OR (ANO@[ROSyncTimerLo , 377"1C) ; 

I.OADTIMER [ROSyncTimer]; 

RState <• (RState) AND NOT ( ROBStatcMask) ; 

ROlCount ♦ 4C; 

T f- (RPtrCSB) I (RIndoxBCCOut) ; 

Rromp2 «- (ZERO) - 1; 

PStorel[RBasePageO, RTemp2]; 

GOTO [RPCmdE], ROData <- 2000; 

* Command = 5 => Stop receiver 

* Set idle timer 

RTemp2 *- AND0[RIIdleTimerLo , 177400]C , AT [RPCmdLoc. 5] ; 

RTemp2 <- (RTemp2) OR (AND@[RIIdleTimerLo , 377]C) ; 
GOTO [RPCmdE], L0ADTIMER[RTemp2] ; 

* Command = 6 => Stop transmitter and idle line 

* Set short tiiner and s :;t line to 1 

RTemp2 ♦- AND@[ROShortTimerLo , 177400]C, AT [RPCmdLoc, 6] ; 

RTemp2 *- (RTemp2) OR (AND@[ROShortTimerLo ,377]C) ; 

RStackSave ♦- pRSlmage; 

T ♦- (GetRSpec[103]) XOR (377C); 

RStackSave <- T, stKP «- RStackSave, NoReglLockOK; 

T <- Stack < (Stack) OR (IC); 

RS232 <- T; 

L0ADTI.MER[RTomp2]; 

STKP «- RStackSave; 

RState ♦- (RState) AND NOT ( ROBStateMask) ; 

GOTO [RPCmdE], RState «- (RState) + ( R0BStateIncr3) ; 

* Command = 7 => Send Break 

* Un implemented 

GOTO [RPCmdE], AT [RPCmdLoc, 7]; 

* Command = 10 => Set Parameters 

* NO PARAMETERS YET! 
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GOTO [RPCmdF], AT [RPCmdLoc , 10] ; 

'" Coniniaiid = 11 => Clear Fting Indicator 

GOTO [nPCiiidf.], RPFroKiDCE *- (RPFromDCE) AND NOT { RFromOCHRiiif)) . AT [RPCriidLoc , 11] ; 

* Command - 11 => Clear Ring Indicator 

GOTO [RPCnidE], RPFroniDCF. *- (RPFromDCE) AND MOT ( liFroniDCKBreak) , AT [RPCmdLoc, 12] ; 

* Command = 11 -> Clear Ring Indicator 

GOTO [RPCmdE], RPFromDCE <- (RPFromDCE) AND MOT ( nFroniDCEL.os t ) , AT [RPCmdLoc , 13] ; 

* Clear command field if not a1 road^ cleared 

RPCmdE: RPToDCE < (RPToDCE) AMD (377C); 

T < (RPlrCSB) + (RTndoxToDCE), TASK; 
PStorol[RBasePagoO, RPloDCE]; 

* Sot ToDCE bits 

RPCmdEl: RStackSave <- pRStmage; 

T <- (GetRSpoc[103]) XOR (37/C); 

RStackSavG <- T, STKP <- RStackSave, NoRcglLockOK; 
r <^ (RPToDCE) OR NOT ( RToDCEMask) ; 
Stack <- (Stack) AND NOT (RToDCEMask); 
I < (Stack) t- (Stack) OR NOT (T); 
RS232 <• T, TASK; 
STKP <- RStackSavo; 

* CliGck EromDCE bits and post nsnr if thoy have ciianged. Note tliat tlie bits are fiogative 

* logic. Also, RPNow wi m contain any non-liardware bits tlurt havo to l)0 set (like 
' DataLost, AbortDetectod) . 

T < (RS232) OR NOT ( REromDCEMask) ; * Got FromOCEbils 

RPNow t- (RPNow) OR MOT (T); 

T + (RPFromDCE) AND NOT ( RNolLatchedMask ) ; ■' Save ON iatiiced bits 
RPNow <■ (RPNow) OR (T); 

T <- (RPtrCSU) I (RIiidoxFromDCE), TASK; * Store now FromDCt bits; 
PStorol[R[3asePagoO, RPMew]; 

T <- RPFromDCE; * Get old FromDCE bits 

\\\ <■ (RPNow) XOR (T); * Compare to now FromDCE bits 

GOTO [RNoDCEChango, ALU-0], T *- (RPtrCSii) i (RIndexMask) ; 
NOP; 

CALL [RPost], PFetchl[RBasoPageO,RTemp2]; 
RNoDCECIiango: RPNow <• OC ; 

GOTO [RChkActive], RState *- (RStnte) AND NOT (RPActivo); 
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SET rASK[RFTaskl; 
ON PAGE[RFPano]; 

* Input charactei' recoived. Load registers. 

RIFrameStart: CALL [HGo tPtrlOCO] , T «- (RPtrCSS) + ( RIiidoxIOCBIil) ; 
tiFStnte <- (RFStalo) OR (RFState Input ) ; 
CALL [RGetPtr.i], UseCTask; 

* Dispatch on input ovont. Test state of input line 

* fivonts are: 

^ ■- ctia factor received 

* 1 = ABRF received 

* 2 = FLAG received -(end of frame) 

* 3 = line returned to idle state (more than 17 ones in a row) 

DBLGOTO [RtOataLost, RIStoreChar, ALU-0], $RIEvcn tDisp[RData] ; 
RlStoreChar: DISP[.+l]; 

* Character received, store it in lOCO 

T < (RRCount) <• (RRCount) ->■ 1, AT [R rFrameLoc, ]; 

LIJ <- (RMaxCount) - T; 

GOTO [RIBufSpaco, ALU> = 0], LU <- ( RCoiimiand) AND (RCmdEnd); 
RinufFuli: GOTO [RTMustEnd, ALU//0], RRCount <- (RRCount) - 1; 

NOP ; 

CALL [RDonelOCDI; 

DULGOTO [RIDalaLost, RTStoreCha r-, ALU-0] , SRTFventDispC Rl)ala"| ; 
RIMustEnd: CALL [RSetSta tus] , RTenip2 <■ R.StatLost; 

GOTO [RtDoBCC;|; 

* Room in buFFer. Store character in buffer. This is slightly complicated duo to the 

* fact that vjo are storing a byte rather than a word. ROfFseti RRCount gives the byte 

* ofFset into the buFFor. Update DCC. 

RIBuFSpace: ROFfSot <- (ROffSet) + T; 

ROFfSet <- (ROFFSot) - 1; 

GOTO [RIStoroEvon, R EVEN], T <- RSII[RUFrSot , .1] ; 

PFc tc h 1 f RBu Flia so , RTeiiipZ ] ; 

T <- RliMASK[RDatal, TASK; 

RTemp2 »- ( LIIMASKrRTemp2i) OR T; 

GOTO [RFDoStoro]; 
RIStoreEven: T «- LSII[RData, 10] ; 

RTemp2 <- T; 
RlDoStore: T <- RSIl[ROFFSet , 1] , TASK; 

PStorel[RnuFBase,RTeinp2]; 

GOTO [RIDoBCC]; 

* ABRT recoived, end Frame and signal error 

GOlO [HCAborted], RTomp2 - RStatBadF rame , AT | Rt F' rameLoc, 1 | ; 

RFAboited: CALL [RSo tStatus] ; 
Rl End Frame: NOP; 

CALL[ RDonelOCB]; 

SKIPON [ALU-0], LU < (RCoiiimand) AND (RCmdStart); 

DBI-GOTO [RXEndFramo, RINoSavol, ALU-=0|; 

GOTO [RINoSave]; 
RINoSavel: GOTO [RlNoSavo]; 

* FLAG recoived, Check BCC and end of frame. 

RBCC <- (RBCC) (AMD0[RBCCRemainder,iy74OO]C), AT [ RTF rameLoc , 2] ; 

RBCC <- (RBCC) - (AND0[RBCCRemainder,377]C); 
SKIPON [ALU-0], RBCC <- (ZERO) - 1; 
GOTO [RFAborted], RTomp2 «- RStatCCCErr; 
GOTO [RIEndFrame]; 

* Idle line, Toll the user 

GOTO [RIAborted], RTemp2 «- RStatBadErame , AT [RIFrameLoc ,3] ; 

* End oF fi'ame work 

RIDoBCC: CALL [RDoBCC]; 
RXFinish: CAl L [RSavelOCB] ; 

RINoSave: CALL [RSaveCSB], T <- (RPtrCSB) + (RIndexIOCDIn ) ; 
GOTO [RChkActive], RState <- (RState) AND NOF (RIActivo); 

* Data arrived and no lOCB on chain. Signal Data Lost. 
RIDataLost: GOTO [RINoSave], RPNew *• (RPNow) OR ( RFromDCELost ) ; 
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SET 1ASK [RKTaskJ; 
ON PAGE [iiFPago]; 

* Software USRr needs another character. Load registers 

fiOFrainoStart : CALL [RGetPtrlOCB] , T «• (RPtrCSB) + ( R[iidoxI0.:U0ut ) ; 
CALL [RGoLPtrs], UseCTask; 

* Dispatch on output state. 

* States are 

* - > Sent a charactor/open ing flag 

* 1 = > Sent BCCX 

* 2 = > Sent f3CC2 

* 3 = > Sont closing/opening flag 

RODi spate h: $RFStateDisp[RFState] ; 

DrSP[.H], T «- RRCount <-"(RRCount) - 1; 

* A character has beoii sent, see if any rnoro characters in buffer. 

* i:f nothing in buffer, check EndFrome bit and if set, end tlio frame. 

ROChockCount : GOTO [ROGotChar, ALU> = 0], LU <- ( RCommand) AMD (RCmdEnd), AT [ROFraiiicLoc, 0] ; 

GOTO [ROEndFrame, ALU//0], RRCount *- (RRCount) ^ l ; • 
RONoxtlOCR; NOP; 

CALL IRDonoIOCB]; 

GOTO [RODispatchj; 

* Got character, send it. Again, things are siiglitly complicated by the fact that wo 

* are sending a byte rather than a word. 

ROGotChar: T <- (RMaxCount) - T; 

ROffSot <- (ROffSet) + T; 

ROffSet < (ROffSet) - 1; 

T «• RSII[ROrfSot ,1], TASK; 

PFotclill Rliufn.isu, RDataJ; 

GOTO IROSendOdd, R ODD], LU >- ROffSet; 
ROSondEven: GOTO [RODoRCC'l, ROatu <^ RSII[RData , 10] ; 
ROSendOdd: GOTO [RODoBCC], RData <- RliMASK[hData] ; 

* End of frame, send First BCC character 

ROEndFrame: T <- RHMASK[RDCC] ; 

ROSendBCC: RData '- (ZERO) OR NOT (T); 

RData <^ RIIMASKf RData]; 
ROXncrFrarno: GOTO |ROFinish], RFState ♦• (RFState) ^ ( RFStatelncr) ; 

* Send second BCC character 

T <- R.SII[RDCC,10], AT [ ROF rainoLoc , 1 ] ; 

GOTO [ROSondBCC], RUCC <- (7.ER0) -• 1; 

* Send a closing flag 

GOTO [liOIncrFrame], RData < lOOOOOC, AT [ROFramsLoc, 2] ; 

* Just sent closing flag, mark lOCB complete and advance to next lOCD 

GOTO [ROHcxtlOCB], RFState < (RFState) - ( RFStateIncr3 ) , AT [ROFraiiicLoc, 3] ; 

* Finish up with character by doing BCC calculation. 

* Save registers in I0C8 

* Save registers in CSB 

* Check for more work 

RODoBCC: CALL [RDoBCC]; 

ROFinish: CALL [RSavetOCB]; 

RONoSave: CALL [RSaveCSB], f *• (RPtrCSB) + ( RIndexIOCBOut ) ; 

GOTO [RChkActive], RState < (RState) AND NOT (ROActive); 
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SET TASKCRFTask]; 
OiMI'AGE[RI'Page'J; 

* Finish off lOCB buffer 

RDonelOCn: UseCTask; 

T <- APC&APCTask, TASK; 

nSavo <- T; 
llDoiioIOCniiLU t- (RComp) AND (RCmpSta tus) ; 

SKIPON [AIU//0]; 

RComp i- (RCoinp) i- (RStatOk); 

CALL [RSavelOCfiJ, RConip <- (RComp) OR ( RCmpProc) ; 

CALL [RMextlOCfi], T *■ (RPtrlOCB) + ( RlndaxMoxt ) ; 

T <- (RCorinianci) AND (OR@[RCmclWakoAl 1 ! , RCmtlWaketrr ! ]C ) ; 

LU <-■ (RComp) AND T; 

GOTO [RGetlOCD, ALU-0], T <- (RPtrCSB) + ( RIndexMask) ; 

NOP; 

CALL [RPost], PFt!f,clil[RBasePagoO, RTempZ]; 

GOTO [RGetlOCD]; 

* Get buffer pointers. 

RGetPtrlOCB; RETURN, PFetcli4[RBasePageO, RPt rIOCB] ; 
RGetPtrs: T <- APC&APCTask; 

RSave <■ T; 
RGellOCB: T <- RPlrlOCn; 

GOTO [RNoIOCB, AITJ^O]; 

CALL [RRTask"), PFo tcli1[ ROasePagoO , RDurBaso 1 ; 

r »- (RPtrlOCB) I (RIniioxCount) ; 

CALL [ RFixBasoRuq I, PFotcli4[ RBasuPageO , RRCoun t ] ; 

GOTO [RSubReturn]; 

* Wliat to do if wo don't have an lOCB! 

* On input, signal data lost (NOT IMP! EHENTEO YET) 

* On output, send a flag 

RNoIOCB: DBLGOTO[Ri:NoIOCB , RONoIOCB, R ODD], LU »• RFState; 

RINoIOCB: GOTO [RSubRo turn] ; 

RoNolOCB: GOTO [RONoSavo], RDala <- lOOOOOC; 
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SET TASK[ftFra3k]; 
OMPAGE[RFPnge]; 

* Acciimul ate BCC 

HDoRCC; UseCTask; 

T <■ APC&APCTask, TASK; 

RSavo <- T; 

T <- (RPtrCSn) + (RIii'JexBCCTabla); 

CALL [RFIxDasoRog], PFotch2[RBasePafleO , RBut'Daso]; 

T «- RData; 

T <■■ (RHMASK[ROCC]) XOR (T), TASK; 

PFetchl[R13iifBaso.RToiTipZ]; 

T <- (RToitip2) ; 

RBCC <■ (RSII[RBCC,10]) XOR T; 
RSubReturn: APC&APCTask *■ RSavo; 
RRTask: RETURN, LU <- RPtrlOCB; 
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SF.T TASKlRFTask]; 
ONPAGi:[RFI'age]; 



* Fix up base register 

RFixDasGReq: T <■■ ( LSII[ROuflJasel.o, 10 ]) + 1; 

Rf-iURN, RBufDasol.o <• (RBufBaseLo) OR (T); 



* Sot completion status 

RSetStatus: Hi <- (RCoinp) AMD ( RCmpStatus) ; 

GOTO [RRTasI^, AI..U//0'|, T ♦- (RTempZ) OR (RCinpError) 
RCTURN, RConip <■ (RCoiiip) OR ( T) ; 



* Save XOCB ptrs 

RSavoIOCn: T ♦- (RPtrfOCD) i ( RIndexCoun t) ; 

RtrURM, PStor'e4[RtiasePageO, RRCoiint]; 



* Save CSB ptns 

RSavcCSB: PFe tch [[RHasuPageO , RPtrlOCB); 

I.IJ < RPtrlOCB; 
RFTURN, PStoro'll RUasoPaqoO, RPtrlOCB]; 



• Point to next lOCB 

RMoxtlOCB: PFo tclil [ RliasoPagoO , RMoxl); 

DnFGOTO[.H, . 1?, R ODD], 1.U «- RFState; 

GOTO [.+?], T <• (RPlrCSB) ^ { R tiitiaxIOCBIn ) ; 

GOTO r.H], r <- (RPtiCSB) ■> (RIiicJoxIOCBOut) ; 

tU <- RNext; 

PStorol[Rnas3PageO,RNext]; 

T <- RNext; 

RETURN, RPtrlOCB *■ T; 



RStackSavG <- pNWW; 

T <- (GetRSpoc[l03 J) XOR (3V7C); * road stkp 

STKP <- RStackSave, RSlackSave <- T, NoReglLockOK; 

r «- RTemp?. ; 

Stack <■■ (Stack) OR (T); 

RTi,'iiip2 <- pRSImage; 

STKP <• RTompZ; 

I <- Stack <- (Stack) OR (IOC) ; 

RS?3Z <- T; 

RETURN, STKP <- RStackSave; 
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Lnst modi nod by BRD on Juno 1, 1979 12:13 ('! 
Version 3. 



insort[nS232Bit]; 
insert[RS232Tosii; 
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1979 1:00 PM fix GlobalOefs confillcts 



insert[d01 nng J ; 

NOMIDASINIT; LAMGVERSION; 
TITLF- [RS232BytG]i 

* DO microcodo for byto synchronous 

* last i:;odified liy BRD on August 28, 

* modified hy f.UiD on Juno 1, 1979 12:11 PM 

insert[G1oba1Defs]; 
insort[RS232DersJ; 

* This microcode uses a timer to simul'jte a hardv/are wakeup for the frame task. It uses 

* Task 4 foe iho frame task, and task 5 for the bit task 

SET TASK [RBTask]; 
ONPAGE [RBPage];' 

* Wakeup occurred on input t.imar 

RTWake: $Rini tDisp[RState] , AT [RIWakRi.oc J ; 

l)ISP[RIWaitSyn I, T < (RS232) AND (RI232Data); 

* Waiting foi' first sync character. Shift in a bil and compare last 8 bits to 

* SYN cliaractor. If a match, we are in sync. 

RlWaitSyn: RIDala <^ ( RSII[RIData , 1] ) OR (T), AT [RIBi tl oc , 0] ; 

T <- RIIMASK[RIData ]; 
lU - (RSyncChar) - ( T) ; 
GOTO [RlSotTimcr, ALU//0]; 
GOTO [RIMoxtChar], RState <- (RState) + ( RIBStatoIncr) ; 



Data bit in. Shift into partially assembled character. If end of character, j 
character and chock if parity bit coining 



AT 
AT [RlJustl. 
AT [RlJustI 

AT 



RIShiftBit: RState <- (RState) XOR (T), 

SKIPON[R ODD], RIData *■ ( RSII[niDa ta , I] ) OR (T); 

GOTO I RISotTimer"!; 

$R[JustOisp['RDataMask'j; 

DTSP fRIJustify]; 
RlJustify: GOTO [RIChkPar], RIData <- RSH[RIData,3] , 

GOTO [RIChkPar], RIData <- RSll[RIData ,2] , 

GOTO IRlChkPar'j, RIData <- RSH[RIData , 1 j , 
RIChkPar: LU «- (RDataHask) AND ( RMaskPar i ty ) , 

GOTO [RlTurnOii, ALU-0], RState f- (RState) i- ( RIBStatelncr) 

GOTO [RISetTimer]; 

* Chock parity is enabled 

RlParity: RState *- (RState) XOR (T), 

$RParityD i sp[ RDataMask] ; 

DISP [RIParNone], RBTompl <- T; 
RFParNone: GOTO fRlTurnOn], RState <- (RStato) + (RIBStatelncr), AT 

RIParOdd: GOTO fRIParChk], LU <- LDr[RState, RlParityBit, 1), AT 

RIParEven: GOTO [RlParChk'], lU <• (IDE[RState, RIParityRit, 1]) - 1, AT 

RlParOne: GOIO [RIParChk], LU '^ LDF[RBTempl, RlParityBit, 1], AT 

RIParZero: GOTO [i'lParClikJ, LU < ( LDFfRBfompl , RIparityBit, 1]) ■ 1, AT 

RIparChk: GOTO [RIParDonu, ALU//0]; 

RIData <- (RIData) OR ( RIDataParityErr) ; 
RIParDone: GOTO [RITurnOn]; 

* Notify frame task that input lias work 

RITurnOn: SKIPON [R<0], RState »- (RState) OR (OR0[RIAct i ve ! , RXAct i vo ! jC ) ; 

LOADriHER[RrrameTimerll; 

RState <- (UState) • (RIBStatelncr); 

T < (RPtrCSB) + (RIndexCharIn) ; 

PStoreI[RBasePageO, RIData]; 
RINextChar: T <- (RDataHask) AND ( RDataSiineMask) ; 

RIData <- T; 
RISetTimer: GOTO [RTimerReturn] , LOADTIMER[RISyncTiiiier]; 



u s t i f y 
AT [RIBitLoc,!]; 



[RIJustLocO]; 
oc,L]; 
oc,2]; 
[RIJustLoc,3]; 



AT [RIBitLoc, 2]; 



[RIParLoc.O] 
[RIParl oc, 1] 
[RfParl oc,2] 
[RIParLoc,3] 
[RIParLoc,4] 
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SET TASK[RBTask]; 
ONPAGE [KBPago]'; 

• rimer wakeiip occurred on output. 

ROWake: RStackSavo ^- pRSImagQ, AT [ROWakel.oc]; 
T <- (Gol,RSpec[103|) XOR (377C); 

RStackSave <■ T, STKP ♦- RStackSavo, NoRoglLockOK; 
SROBitOisp[RState]; 
DISP[ROIdUil, T <- Stack ♦- (Stack) AND (376C); 



* Idio output state. 
ROIdIo: GOTO [ROSeiidB 1 1] , T 



Stack <• (Stack) OR (IC), 



AT [ROOi tLocO]; 



• Get next input character. Notify frame code. 

* If we have a character, send it. If no character to be sent, idle lino 

Restart: SKIPON [R<0], RState <- (RState) OR (OR0[ ROAct i vc ! , RXAct i ve ! IC) , AT [nOQitLoc, 
LOADTIMF.R[Rf ramcTimerl'); 
r <- (RPtrCSt!) I (RIndGxCharOiit) ; 
PI-etchl[RBasoPanoO, ROOata]; 
T <" (RDataMask) AND (RDataS izoMask) ; 
SKIPON [R>-0], ROData <- ( LSII[ROData , 10 ]) OR (T); 
GOTO [ROIdlol, RState < (RState) - ( ROnSLatcIncr) ; 
GOTO [ROSondChar], RStato *• (RState) + ( RODStaloIncr) ; 



1]: 



* Send data bit 

ROSondChar: T <■ lT)K[ROData, 7 , 1] , 

RState <- (RState) XOR (T) ; 

T «- Stack «- (Stack) OR (T); 
ROSondliit: RS232 > T; 

DUI.GOTO [RONoxtStato, ROSet T iino r, R ODD j , RODuta 
RONextState: RStato ' (RState) ^ (ROBStutelncr) ; 
ROSot T i me r : LOADT I ME Rf ROSy n cT imo r] ; 
ROStackRoset : GOTO [RT imoi-Return] , STKP «- RStackSavo; 



AT [R0BitLoc,2J; 



RSH[ROData,l 1; 



* Send parity hit if parity set 

ROParity: SRParityD i sp[RDataMask] , 

DISP IROParNonol, RState *- (RStato) - ( R0DStatoIncr2) ; 
ROParNono: CO TO [ROStart], 

ROParOdd: GOlO [ROParEven], RStato <- (RStato) XOR ( ROPar i tyMask ) , 

ROParEvon: GOTO [ROParSendl, T <- l^DFlRSlato. ROPar i tyfli t , 1], 

ROPnrOne: GOTO [ROParScnd], T «• IC , 

ROParZero: GOTO [ROParSond], T <• OC, 

ROParScnd: T «■ Stack ♦- (Stack) OR (T); 

GOTO IROSetTimor], RS232 <- T; 



AT [ROR itLoc,3]; 



AT [ROParloc 
AT [ROParloc 
AT [ROParloc 
AT [ROParloc 
AT [ROParLoc 



State used hy poller to stop transmitter. 

GOTO [ROStackReset], Stack < (Stack) OR (IC), 



AT [ROBill.oclJ; 
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SET TASK[RBTask]; 
ONPAGE [RF-Pago]; 

* Notify frame task that poller has work 

RPTurnon: SKIPON [R<0], RState <- (RStato) OR (ORQ[RPActi ve ! , RXAct i vo ! ]C) , AT [RPWakeLoc]; 

L0ADT1MER[ RF rainoT ime rl] ; 
RTimorRetiirii: NOP; 

RETURN; 
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SET TASK[RFrask]; 
OfJCAGE [nFPago]; 

* Frame dispatch code 

■' Tho i'raina code works in the foVlowinq way: 

* Whenever tho input bit code, output hit code, or poller code has soino woik for tho 

* frame task to perform, it sot tho appropciate Ij it in RStoto indicating work has to 

* 1)0 done (RIActivo, liiOActive, or Ri'Active) and then if tlie frame code is not currently 

' runniny (RXActivo Indicates frame code running), it sots RXActivo and loads RFramoTiiiiorl 

* v/itli a short timer. When this timer expires, control is passed to tlie following 

* instructions. They simply do a RETURN with lIsoCTask set to return to tho last place 

* the frame code did a TASK. In addition, they reload tho timer, so that after tlie next 

* TASK, the frame code will again get control. The frame code can then run as thougli it 

* were a normal task doing RETURNS to give control to others. When it has finished 

* processing, it check tho RTActive, ROActive, and RPActive bits in RState to see if 

* more work needs to be done. If not, it clears RXAclive and idles the frame timer, 

UseCTaak, AT [RFWakel.oc]; 
RETURN, LOADTXMER[RFrameTimerl]; 

* fhe following code is used to initially set registers and the TPC for the frame task. 

SET TASK[0]; 

T *- RO, AT[RS232StartLoc]; * Notify task at RS232Stnrtl 

RO <- $RSetDispEo[RFTask,RS232StartLocl]; 

RO <■ (RO) OR ($RSetDisplli[RFTask, RS232StartLoct] ) ; 

APC&APCTask «■ RO; 

RETURN, RO <- T; * Restore RO 

SET TASK[RFTask]; 

RFramoTimerl <- AMD0|'RFShortTimerLo, 37/lC , AT rRS232StartLocXl ; 

Rrramefimerl ^ ( RPrameTimerl) OR (ANDQ[RFShortTinieiT o , 177400|C) ; 

RliasoPageO <- OC ; 

RBasePageOLo <• OC ; 

RState <r- OC; 

RPtrCSB <- AND@[RS232CSGl.oc,377]C; 

GOTO [RChkActivel, RPtrCSn <^ (RPtrCSB) OR ( AND(5f RS232CSaLoc , 177400]C) ; 

* Chocks to see if any part of RS232 code desires service. If so, it is branched to. 

* If not, tho framo timer is turned off to kill tlie frame wakeups. 

RNonoActive: RTemp2 * (RTomp2) OR ( AND@[ RFIdl eT irierEo , 177400]C ) ; 
I.OADTIMER[RTemp2]; 
NOP, TASK; 
liStato ^ (RState) AND NOT ( RAct ivoMask) ; 

RChkActive: LU <- (RState) AND (RIActive); * Check input active 

GOTO [RIFramoStart, AI:U//0], LU J- (RState) AND (ROActive); * Check output active 
GOlO [ROFrameStart, ALU//0], LU *- (RState) AND (RPActive); * Check poller active 
DBIGOTO [RPollerSturt, RNonoActive, AEU//0], Rlemp? < AND0[REIdle 1 imerl o , 3 / / JC ; 
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SET TASKf DFTask]; 
ON PAGt[ftFPage3; 

* Pol lor. Updates ToDCF. bits and checks FroniDCF. bit.!> ;iotif,y1ng tha user v,ilien the bits 

* change, Aiso, handles comniands 

RPollorStart; T <- (RPtrCSB) + (RIiuluxToDCE) ; 

CALL [RRraskj, PFetchZ[nBasePagoO , RPToDCEJ; 

* Process commands 

$RPCmdDisp[RPToDCF.]; 
DISP[RPNop.l; 

* Commands 

'» = Command pi-occossed 

* 1 == Nop 

* 2 = Reset 

' 3 = s tartRocei ver 

* 4 = startTransmi tter 

* 6 = Stop Receiver 

* 6 = Stop Transmitter 

* 7 -- Send Break 

* 10 = Set Pacamoter 

'* 11 = Clear Ring Indicator 

* 12 = Clear break detected 

* 13 = Clear Data Lost 



* Command = => Coiimiand processed 

* Don't oven clear out command Field 

RPNop: GOTO [RPCmdEl], 

* Command ^ 1 ==> NOP 

* Clear out command field 



AT [RPCmdLocO]; 



GOTO [RPCmdF], 

Command = 2 -•> Reset 
NOP for now 



AT [RPCmdLoc.l]; 



GOTO [RPCmdE], 



AT [RPCmdLoc,2]; 



Command = 3 ^> Start Receiver 

Start receiver timers and set input state to waiting For synchronization 



RISyncTimer ♦- AND@[RISyncTimerLo, ly/'lOOjC, 

RISyncTimer <- (RISyncTimer) OR (ANDe[RISyncTimerLo, 37 / JC ) ; 

LOADTIMERf. RISyncTimer]; 

GOTO [RPCmdE], RState <- (RStato) AND NOT (RiBStatcMask) ; 

Command = 4 => Start transmitter 

Set transmitter timers and set output state to sending idle 

T ♦- (RPtrCSB) t- (RlndexCitarOut) , 

RTemp2 * lOOOOOC; 

PStorell RBasePaiieO, RTemp2]; 

ROSyncTimor « ANDe[ROSyncTimorLo, 177400]C ; 

ROSyncTimcr < (ROSyncTimor) OR (AND0[ROSync.TimerLo, 377]C ) : 

LOADTII^ItR [ROSyncTimor]; 

RState ^ (RStato) AMD NOT ( ROBS tateMask) ; 

GOrO [RPCmdE], ROData <- 200C; 

Command = !i => Stop receiver 
Set idle timer 

RTemp2 ^ AND@[ RIIdleTimerLo , 177400]C , 

RTemp2 *- (RTemp2) OR ( AND(D[RlIdleTimerLo , 377]C ) ; 

GOTO [RPCmdE], L0ADriMER[RTemp2]; 

Command = 6 => Stop transmitter and idle line 
Set short timer and set line to 1 

RTemp2 *- AND@[ROShortTimerLo, 177400]C, 

RTemp2 <^ (RTemp2) OR (AND@[ROShortTimorLo ,377]C) ; 

RStackSave <- pRSImage; 

T ^ (GetRSpec[103]) XOR (377C); 

RStackSave <- T, STKP <- RStackSave, NoReglLockOK; 

T «- Stack <- (Stack) OR (IC); 

RS232 <- T; 

STKP ^ RStackSave; 

L0ADTIMER[RTemp2]; 

RState ^ (RState) AND NOT ( ROBStateMask) ; 

GOTO [RPCmdE], RState *- (RState) + ( R0BStateIncr4) ; 

Command = 7 => Send Break 
Un implemented 

GOTO [RPCmdE], 

Command = 10 => Set Parameters 
Load registers from DO memory 

T <- (RPtrCSB) + (RIndexParm), 

CALL [RFixCaseReg], PFetch2[RBasePageO, RBufBase]; 

PFetchl[RBufBase, RDataMask , 6] ; 

GOTO [RPCmdE], PFetchl[RBufBase , RSyncChar, 7]; 

Command = 11 => Clear Ring Indicator 



AT [RPCmdLoc,3" 



AT [RPCmdLoc,4]; 



AT [RPCmdLoc,5]; 



AT [RPCmdLoc,6]; 



AT [RPCmdLoc,7]; 



AT [RPCmdLoc.lO]; 
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GOTO [KPCmdE;j, RPFromDCF. +■ (nPFromDCE) AND NOT ( lU'romDCtrt ing) , AT [RPCiiidl.oc , 11] ; 

* Command - 11 => Cleai- Riiuj Indicator 

GOTO [RI'CmdE], RPFromDCE <- (RPFroniDCE) AND NOT { iiFromDCFUrenk) .AT [RPCmdI.oc , 12] ; 

* Coiiimand = 11 => Clear Ring Indicator 

GOTO [RPCmdE], RPFromDCE <• (RPFromDCE) AND NOT ( RFromDCELos t) , AT [RPCiikILoc , 13] ; 

* Clear coiiiinaiid field if not already cleared 

RPCmdE; RPToDCE <- (RPToDCE) AND (37/C); 

T «• (RPtrCSB) < (RTiidexToDCE), TASK; 
PStorel[nDasePageO, RPToDCE]; 

* Set ToDCE bits 

RPCiFidEl: RStackSave <- pRSImage; 

T <- (GetRSpec[103]) XOR (377C); 
RStackSavo <- T, STKP <- RStackSave, NoRegll.ockOK; 
T *- (RPToDCE) OR NOT ( RToDCEMask) ; 
Stack ♦- (Stack) AND NOT (RToDCEMask); 
I < (Stack) *■ (Stack) OR NOT (T); 
RS23Z <- T, TASK; 
STKP «• RStackSave; 

" Check FromDCE bits and post user if tiiey have changed. Note that the bits. are negative 

* logic. Aiso, RPNow wiiii contain any non-hardwaro bits that have to be set (like 
■'' DatuLost, DroakDetectod) . 

T <- (RS232) OR NOT ( RF romDCEMask) ; * Get FromDCE bits 

RPNew *- (RPHew) OR NOT (T); 

T <- (RPFromDCE) AND NOT ( RNo tl.a tchedHask ) ; * Save ON latticed bits 
RPNew *- (RPNew) OR (T) ; 

I <• (RPtrCSfi) <- (RlndoxFromDCE) , TASK; * Store now FromDCE bits; 
PStorel[RBasePagoO, RPNew]; 

T <- RPFromDCE; • Get old FromDCE bits 

U) «• (RPNew) XOR (T); * Compni-e to new FromDCE bits 

GOTO [RNoDCEChango, ALU=0], T < (RPtrCSB) f ( RlndexMusk) ; 
LoadPago[RBPago]; 

CALL [RPost], PFetchl[RBasePageO,RTemp2]; 
RNoDCEChange; RPNew <- OC; 

GOTO [RChkActive], RStute *- (RState) AND NOT (RPActive); 
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SET TASK[rif-Task]; 
ON PAGE[RFPa(jeJ; 

' Input evftnt, have received a character. Dispatch on input event. 

" Events are; 

* => Recoived a good character. Store it in lOCB buEfer. 

* 1 => Received brealc. NOT IMPLEMENTED YET. 

* 2 => Received cliaractor with parity error. Set error and stoi'o character in lOCB. 

* 3 -> Received character with framoing error. Set error and store character in lOCD. 

RTFramoStart: CALL [ RGe tPt rlOCB | , T <• (RPtrCSfi) + { Rliide.'cIOCIlIn) ; 
RFState <- (REState) OR (REStatelnput ) ; 
CALL [RGetPtrsJ, UseCTasIc; 

GOTO [RIDataLost, ALU-0] , $RIEventD1sp[RDa ta"| ; 
D[SP[.'il"i, RTemp2 <- RStatErameErr ; 



GOTO [RIStoreCharJ, 

GOTO [RIEinish], 

RTemp2 <- RStatParityErr, 

NOP, 

CALL [RSotStatus]; 



AT [RtEvGntLoc.O]; 
Ar [RCEvontLoc, 1]; 

AT [■RlEv6ntLoc,2i; 
AT [RIEventLoc,3]; 



Character recoivod, store it in buffer. If not cnoufjh room in buffer, advance to next 
lOCli unless RCmdEnd set in which case set DATALOST and wait for franio to end. 
If the current state is zero, chGcl< if SYtJ characther and throw away if so. 



RIStoreChar: $REStatcDi.sp[RFState] ; 
DTSP|;.HJ, T <r- RSyncChar; 

GOTO [RICheckSyn], LU «- (RData) 

GOTO [lUNoChecIt 1, T «- RRCOunt f- 

GOTO [RTNoCheck], T <- RRCount <- 

GOTO f RICIieckSynJ, LU «- (RData) 



- T, 

(RRCount) + I, 
(RRCount) + 1, 

- T, 

(RRCount) <- (RRCount) + 1; 



(RCommand) AND (RCmdEnd); 
RRCount <- (RRCount) ■ I; 



AT [RISynLocO'l 
AT [RISyiiLoc, I'J 
AT [RISynLoc,2] 
AT I RTSyiiLoc,3^ 



RICheckSyn: GOTO [RlNoCheck, ALU//OJ , T 

GOTO [RINoSave]; 
RIMoChcck: LU <- (RHaxCount) - T; 

GOTO [RICuf Space, ALU>=0|, LU 
RTBufFuil: GOTO [RIMustEnd, ALU//0 

NOP ; 

CALL [RDonelOCB]; 

GOTO [RlStoroCliar]; 
RIMustEnd: CALL [RSetStatus] , RTcmp2 <- RStatLost; 

GOTO [RtEndFranio]; 

* Room in buffer. Store chai'acter in buffer. This is s1i(|htly complicated duo to the 

* fact that we are storing a byte rather than a word. ROf f set i-RRCoun t gives the byte 

* offset into the buffer. 



RIBuf Space; ROffSot <- (ROffSet) + T; 

ROffSet <• (ROffSot) - 1; 

GOTO [RfStorcEven, R EVEN], T <- RSH[ROf f Set , 1] ; 

PFetchl[HfiurBaso,RTeiiip2]; 

r <- RilHASK[RData I, TASK; 

RTemp2 ^ ( IHMASK[R rRmp2 ]) OR T; 

GOTO [RIDoStore); 
RIStoreEven: T ^ L Sll[ RData, 10] ; 

RIemp2 <- T; 
RIDoStore: T <- RSII[ ROffSet , 1] , TASK; 

PStorel[RBufBase,RTemp2]; 
RIDoBCC: CALL [RDoBCC]; 

* Now dispatch on frame state 

* States are: 

* => just inputted a character, chock if special case 

* 1 => just inputting first part of BCC, increment state 

* 2 => just inputted second half of BCC, chock it and end frame 

* 3 => counting down to end of frame, if RFState<0 end tlie frame 

$RFSt at eDisp[ RFState]; 
DISP[ , H]; 

* State = 0. Normal state, check if special typo of character. 

* Special types are: 

* => not special type. Do nothing. 

* 1 => BCC starts accumulating AFTER this character. Sot RBCC <- 

* 2 => BCC received AFTER this character. Increment FStato to receiving BCC state, 

* 3 => Frame ends in n characters. Set FState to countdown to end of frame. 



$RXCharD1sp[RTomp2], 

DISP [.+1], RTempZ *- (LDF[RTemp2 , 16 , 2])-l; 

GOTO [RIFinish], 

GOTO [RIFinish], RBCC <- OC , 

GOTO [RIFinish], RFState «- (RFState) + ( RFStatelncr) , 

T <- LSM[RTemp2", 14], 

RFState'*- (RFState) + ( RFStatetncr3) ; 

GOTO [RICheckEOF], RFState <- (RFState) OR (T); 

State = 1. Inputting first half of BCC. Increment FState 

GOTO [RIFinish], RFState <- (RFState) + (RFStatelncr), 



AT [RIFrameLocO]; 

AT [RISpecLocO]; 
AT [RISpecLocl]; 
AT [RISpecLoc,2i; 
AT [RISpocLocS]; 



AT [RIFrameLoc.l]; 



State = 2. Got second half of BCC. Check that accumulated BCC is equal to zero 
and set BCC error if not. Then end the frame. 



LU «- RBCC, 

GOTO [RIBCCOk, ALU=0]; 
NOP; 

CALL [RSetStatus], RTemp2 «- RStatBCCErr; 
RIBCCOk: GOTO [RIEndFrame] , RFState <- (RFState) 



AT [RIFrameLoc,2]; 



(RFStateIncr2); 
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* State=3. Ending frame after n characters. Decrement top part of RFStato checking it 

* first to see if has gone negative. If it has, eiiiJ of frame lias occurred, so reset 

* ('-State and end the frame. 

l)IChecki;OF: SKIPON [P<0], RFStato <■ (RFState) - ( RrCountTncr) , AT [RIFrameLoc ,31 ; 

GOTO [RTF i Irish]; 

RFState < (RFStato) - { RFStatelncrS) ; 
RIEndFrame: RFStato <• (RFStato) AND NOT ( RFSta toCoiiiitBits ) ; 

CAU. [RDoiicIOCB], RStato *- (RState) AND NOT (RIDStatoHask) ; 

SKIPON [ALU-O], LLI <- (RCommand) AND (RCtndStart ) ; 

OBI.GOiO [RIEndFrame, RIFini.sh, ALIJ-0] ; 

GOTO [RINoSave]; 

* Save registers in lOCB 
" Save registers in CSB 

* Check For more v/ork 

RXFinish: CALL [RSavelOCB]; 

RIHoSave: CALL [RSavoCSCJ, T <- (RPtrCSB) i (Rfndex [OCBIn ) ; 

GOTO [RChkActive], RStato *- (RStatc) AND NOT (RIActive); 

* No input lOCB, mark Data Lost 

HIDataLost: GOTO [RINoSave], RPNew <- (RPNew) OR ( RFromDCC Los t ) ; 
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SET TASK[RrTask]; 
ONCAGE [RFPago]; 

' Output character has been sent. Load up registers and chock, if sonding BCC . If not, 

* look at lOCC buffer' for a charactor. 

MFramoStnrt; CALL [RGe tPtrI0CI3] , T *- (flPLrCSli) + ( RTiulexIOCUOut.) ; 
CALL [I^GotPtrs], UseCTask; 

* tJood a cliaractcr. Dispatch on state 
'" States are: 

* -> Lino idle. Send syncs 
* pl -> Sending syncs. 

* 2 •-> Just sent a character. Get next cliaractcr from lOCB, 

* 3 => Just sent chai-acter boforo IKC, Send first half of fJCC. 

* 4 => Just sent first half of BCC, Send second haif of BCC, 

* 5 ■-•> Just sent last half of BCC. Idle transmitter. 

* 6 => Just idled transmitter. Signal IOCS complete, 

RODispatch: $RFStateDi sp| REStato] ; 

DISP[. + i;|, T ♦- HiiCount <- (RRCount) - 1; 

* Idio iine. Send first sync and load sync counter 

T <- RSyncChar, ' AT [ROEranicLoc ,0]; 

RData <- T; 

r <• ($RSyncCoinit[ROataMask]) - 1; 

ROSyncCount <■ T; 

REState <• (REState) + ( RFSta tolncr) ; 

* Sending syncs. Check if enough have been sent, if so start sending characters 

SKIPOH [R<0'|, ROSyncCount <- (ROSyncCount) - 1, AT rROFrameLoc , 1] ; 

GOTO [RONoSavel; 

REState ^- (REState) ^ (REStatoIncr) ; 

GOTO [ROCheckCountJ, LU *■ RRCount; 

* A character has been sent, see if any more cliaracters in buffer. 

* If nothing in buffer, check EndErame bit and if set, end the frame. 

ROCheckCount: GOTO [ROGotChar, ALU>-0"], LU <• (RCornmand) AND (RCmdEnd), AT [ROFrameLoc ,2] ; 

GOTO [ROendFi-ame,ALU//0], RRCount <- (RRCount) + 1; 
RONextlOCB: NOP; 

CALL [RDoiielGCB]; 

GOTO [RODispatch]; 

* Got chai-acter, send it. Again, things are slightly complicated by the fact that we 

* are sending a byte rather than a word. 

ROGotChar: T <- (RMaxCount) - T; 

RUffSet ^ (ROffSet) H T; 

ROffSet <- (ROffSet) - 1; 

T «- RSII[ROffSot,T J, TASK; 

PEetchliRBufBase, RData]; 

GOTO [ROSendOdd, R ODD], LU <^ ROffSot; 
ROSendLven: GOTO [RODoBCC], RData «- RSH[RData , 10] ; 
ROSendOdd: GOTO [RODoBCC], RData < RIIMASK[ RData] ; 

* End of frame, since we got here, we must viant to end frame, so set state to idling 

* transmitter, 

ROEndFrame: REState «- (REState) i- ( REStatoIncr'i) ; 
GOTO [RONoSave], RData <- lOOOOOC; 

* Just sent charactor before BCC, send first BCC charactor and increment state 

ROSendBCC: T ^ RMMASK[RBCC], AT [ROFrameLoc ,3] ; 

RData <- T; 
ROIncrFrame: GOTO [RONoSave], RFState t- (REState) i- ( RFStatelncr) ; 

* Just sent first half of BCC, send the second half. 

GOTO [ROSendBCC], RBCC *■ RSIi[RBCC , 10], AT [ROFrameLoc ,4]; 

* Just sent second half of BCC, look for more characters 

ROIdleXmtr: REState <- (RFState) - ( REStatelncrS) , AT [ROFrameLoc, 5]; 

GOTO [ROCheckCount], LU <- RRCount; 

* Just idled transmitter, mark lOCB complete and advance to next lOCB 

GOTO [RONextlOCB], RFState <- (RFState) - (RFStatelncrS) , AT [ROFrameLoc, 6] ; 

* Calculate BCC and check for special characters 

* Save lOCB registers 

* Save CSB registers 

* Check for more work 

RODoBCC: CALL [ROoBCC]; 

$RICharDisp[RTemp2]; 

DISP [.+1]; 

GOTO [ROFinish], AT [ROSpecLoc , 0]; 

GOTO [ROFinish], RBCC «- DC, AT [ROSpecLoc,!]; 

GOTO [ROFinish], RFState <- (RFState) + (RFStatelncr), AT [ROSpecLoc , 2] ; 
ROFinish: CALL [RSavelOCB], AT [ROSpecLoc, 3] ; 

RONoSave: CALl, [RSaveCSB], T «■ (RPtrCSB) + ( RIndexIOCBOut) ; 

GOTO [RChkActive], RState ♦- (RState) AND NOT (ROActive); 
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SET TASK[RrTask"j; 
nt4PAGr.[RFPago;|; 

• Finish off lOCB buffor 

RDonolOCD: UscCTask; 

T «■ APC&APCTask, TASK; 

RSavG «- T; 
fiDoiioIOCBl:LU <■ (RComp) AND (RCmpStatus) ; 

SKIPON [ALU//0]; 

RComp <- (RComp) + (RStatOk); 

CALL [RSnvelOCD], RComp «- (RComp) OR (RCmpPr-oc); 

LoadPagefROPagoJ; 

CALL riuioxtlOCD], T <- (RPlrlOCn) + ( RIndexHext) ; 

T *■ (RCommaiKJ) AND (0R@[RCmdWakoA1 1 ! , RCmdWakoErr! ]C) ; 

LU *■ (RComp) AMD T; 

GOTO [RGetlOCn, ALU = 0], T •- (RPtrCSti) ^ ( R IndexMask) ; 

LoadPa()e[R(JPage"|; 

CALLP [RPost], PFetchl[RliasePageO, RTemp2]; 

GOTO |;RCetIOCBJ; 

• Get buffer pointers. 

RGetPtrlOCa: RETURN, Pr"otcli')[ROasePagoO, RPt rIOCB] ; 
RGetPlrs: T «- APC&APCTask; 

RSavG I- T; 
RGotlOCB: T <- RPlrlOCB; 

GOTO [RNoTOCB, ALU^O]; 

CALL TRRTask], PFe tch't| RBascPageO , RBufDase] ; 

T <- (RPtrlOCB) 1- (RIndoxCount) ; 

CALL [RFIxUaseReq], PFotcli1[RnasePageO , RRCoun t]; 

GOTO [RSubRoturn]; 

• What to do if vio don't have an lOCB! 

• On input, signal data lost (NOT IHPLLMF.NTED YET) 

• On output, idle lino 

RNoTOCB: DnLG0T0[RINoI0Cf3 , RONoIOCB, R ODD], LU <- RFStato; 

RINolOCB: GOTO [RINoSaveJ; 

RoNoIOCB: GOTO [RONoSave"|, RData <- lOOOOOC; 
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SET TASKfRFTask]; 
ONPAGE[RFPage]; 

' Accuniiilato EICC 

* Load value from spocial character table 

RDobcC: UseCTask; 

T <- APC&APCTask, TASK; 

RSavo *- T; 

T <■• (fiPtrCSB) 1 (lUndexBCCTable); 

CALL [RFixBaseRog], PFotch2[RUasoPagoO , RBiiflkise] ; 

T <- RData; 

T <- (RIIMASKl RBCC]) XCR (T), TASK; 

PFotchl[RBiir8asc, RTempZ]; 

T «- (RTenip?) ; 

RBCC *■ (RSI1[RBCC,10J) XOR T; 

* Chock if this character rotiiiires special handling 

* Typos of characters 

* 0= normal 

* l=-start DCC 

* Z-end BCC { ie generate or check DCC). Iniplios ond of block on input 
" 3= Olid of block 

RCheckSpec: T <- (RData) i- (-lOOC); 

CALL [RRTask], PFetchl [RBufBase, RTeiiip2]; 
RSubRotiirn: APC&APCTask ^ RSave; 
RRTask: RETURN, LU <- RPtrlOCB; 
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SET TASK[RrTask]; 
ONPAGF[RFPagc]; 



* Fix up biise register 

RFixDaseReq: T <• ( LSIIfRBufBaseLo, 10 J) + 1; 

RETURN, RUufBaseLo <- ( RBiifBascl.o) OR (T) 



* Sot completion status 

RSetStatus: l.U *- (RComp) AMD {RCmpStatus ) ; 

GOro [RRTask, ALLI//0], T <- ( RTemp;' ) OR (RCiiipError) ; 
RCoriip <-■ (RComp) OR (T) ; 



» Save lOCD ptrs 

RSavelOCB: T <- (RPtrlOCB) i- ( RlndoxCoiint) ; 

RETURN, PStoie4[R0asePagu0, RRCoLintJ; 



* Save CSR ptrs 

RSaveCSB: PPotch1.[RBasePagoO , RPtrIOCB|; 
I.U <- RPtrlOCB; 
RETURN, PStordCRBasePageO, RPtrlOCB]; 

OH PAGE [RDPagc]; 

* Point to next lOCB 

RNoxtlOCB: PFo tchl[ROasePagen , RNext]; 

DBLGOTO[.il, . ^2, R ODD], LU *■ RFState; 

GOTO r.+2], r <• (RPtrCSB) + (RlndcxTOCBIn ) ; 

GOTO [.11], T (■■ (RPtrCSB) i- ( RIndexIOCUOut ) ; 

LU <- RNext; 

PSto rel[RBasoPageO , RNext] ; 

T <- RNext; 

RETURN, RPtrlOCB <- T; 



* Post Coiiipicto 

RPost: RStackSave ♦- pNWW; 

T <- (GetRSpec[103]) XOR (3/7C); * read stkp 

STKP <- RStackSave, RStackSave <^ T, NoReglLockOK; 

T »- RTcmp2; 

Stack *- (Stack) OR (T) ; 

RTemp? <- pRSImage; 

srKP t- RTemp 2; 

T * Stack <- (Stack) OR (IOC); 

RS232 <- T; 

RETURN, STKP < RStackSave; 
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Last modified by BRD on Juno 1, 1079 12:13 PH 
Vursion 3.0 



iii;U!rt[RS232Byto'l; 
insortL«S232Tast]; 



f.Uf); 
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* Last, nindifiocl by Danielson on Augtist 28, 1979 1:08 PM, fix corfl icts ciusatl by moving CSB to ClobalOers 

* modifiod by Chang on August 22, 1979 6:04 I'M, niovo CS3 to GlobaUlefs 



modiriod by Chang on August 2, 1979 1:12 PM, change CSB ass ignmoiit 
mod Hied by BRD on June 3, 1979 4:40 PM 



T[TI,.E [RS232DofsJ; 



* Definitions for RS232C mlcrocod! 



Sut( liBPago,2]; 
SutiRI'Pago,!]; 
Set[RFTas!<:.4"]; 
Sct|;HBTask,& 1; 

• Register used to notify at correct task 

Sr,T TASK[0]; 
RVfRO, O;]; * Register 

* Registers (I'imor tasl<) must match those used by Kernel 

StT TASK[16]; 



RV[RXNotify, 
liV[RrNot ify. 



r,21; 

Oil; 



Input/Ou tput/Pollor Notify reg 
f-raiiio Notify reg 



Registers (RS232 Frame tasic) 
Sl-T TASK[RFTask;|; 



RV[RrempO, 
RVrRTeiiip2, 
Rvi'RPMew, 
ItVfRSave, 



Unused 

Temporary reg 
Now FromOCF. bits 
Subroutine return save 



* Tlie following 12 registers are loaded using throo PFetch4s. 

* aligned 

Daso of lOCB buffer (even reg) 

Base of lOCB buffer (odd reg) 

lOCB next pointer 

lOCU off-set field 



lOCB count field 

lOCB max count field 

lOCB command field 

lOCB completion lOCB field 

Ptr to start of TOCB 
Data from bit task 
Frame state 
Frame BCC 



They siiould be quad word 



RV[nBufBaso, 


4] 


IWfRBufBasel.o, 


01 


RVfRMoxt, 


6] 


RV[ROffset, 


1] 


RVf RRCount, 


10] 


RV[RMaxCount, 


11] 


RV| RCommand, 


12 1 


RViRComp, 


13] 


RV[RPtrIOCB, 


14] 


RV[RData, 


15] 


l(V[RFStato, 


16] 


RV[RBCC, 


1/] 



Registers (RS232 Poller) 



RV[RPToI)CE, 
RV[RPFroi!iDCF, 



Command/TuDCE from CSB 
FromDCC from CSB 



Registers (RS232 Bit task) 
SFT rASK[RBTask]; 



RV[RState, 


20] 


RVfRDataHask, 


21] 


RVJ RIData, 


22] 


RV[ROI)ata, 


23] 


RV(RStackSavo, 


24] 


RV[RBTompl, 


25] 


RVfRFramoTimerl, 


261 


RV[RPtrCSB, 


27] 


RVIRIFullBitLo, 


30] 


RVil^IFullBitHi, 


31] 


RV[RIHalfBitLo, 


32] 


RV[RXllalfBitHi, 


33] 


RvfROFullBitLo, 


34] 


RV[ROFullDitfli, 


3b] 


RV[RISyncT1mor, 


30] 


RVfROSyncTimer, 


31] 


RVfROSyncCount, 


32] 


RViRSyncChar, 


33] 


RV[RIlCount, 


32] 


RV[R01Count, 


33] 


RV[RDasePageO, 


36] 


l!V[RBasePageOl.o, 


37] 



State: 

Mask containing character length info 

Input data register 

Output data register 

Register to save current stack pointer 
Bit task temporary 
Frame v;akeup tinier 
Pointer to CSB 

Input bit timer 

Input half bit timer (start bit detection) 

Output bit timer 



Input timer register 
Output timer register 
Output sync counter 
SYN character 

Input 1 counter 
Output 1 counter 

Base for page 
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* liclds in TOCB Conimancl 



MC[IICmdWakoAn ,1000001 
HC[liCiii(IWakeErr, 040000 J 
MC( RCimlSlopC IT, 020000 1 
MC[l!CmdStart, 010000 j 
MC[RCmdEiid, 004000] 

MC[IICiiidneservG,00Z776] 
HC[ltCmdCoinniand, 000001] 



WakeUpA Iv/ays 
V/akeUpOn Error 
StopOiiError 
StartOfFramo 
EndOf Frame 
LuftOvorBits 
Command field 



Fields in lOCB Completion 



MC[RCmpProc, 100000] 
MCrnCmpError, 040000] 
MCrRCmpEnd, 020000] 

MCinCmpReserve, 017760] 
MCfnCmpStalus, 000017] 



Processed 
E r ro r 

EndOTFrame 
LoftOverBi ts 
Completion status 



• Status field in J.OCB Completion 



MCI RSlatUnused, 


OJ 


t 


Not used 




HC| KSlatOk, 


1] 


« 


Success ful 




MC[RStatLost, 


2] 


* 


DataLost 




MC[RStatBroak, 


;i] 


* 


Break dotoctod 




MC[RStatTOut , 


4] 


* 


T imeOut 




HCfRStatOCCErr, 


r-l 


• 


Checksum crroi- 




MC| RStatParityErr 


fi] 


* 


Parity Error 




MCJ list atFramo Err, 


/J 


* 


Fi-amingError 




MCfRStatBadChar, 


10] 


* 


Invai idCliar 




HC[RStatBadFrame, 


11] 


:B 


Iitva! idF rame 




MCFRStatAbort, 


12] 


V 


lOCB aborted 




MC| RStatAbort2, 


13] 


* 


lOCB aborted by 


rransFerNow 


MCJ RSlatDisater, 


11] 


" 


Di sas tei- 
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RState Hegisters fields 



* Input bit states 

MCrRIBStateMask, 000360'| ; 

MCCRIBStatGlncr, 000020]; 

* Output bit states 

MCTROBStnteMask, 000017] 

MC[nOBStateIncr, 000002] 

MC[R0DStatoIncr2, 000004] 

HC r ROBS tat oX lie r3, OOOOOG] 

MC[R0BState[ncr4, 000010] 

t'lC[R0BStatoIiicr5, 000012] 

* RState Misc 



Input l)it state bits >• input parity bit 
Increment for input bit state 



Output bit state bits ■<■ output parity bit 
Incroinont for output bit state 



HC[RXActive, 
MC[RIActive, 
MCfnOActive, 
MCJRPActive, 



100000] 
040000] 
020000] 
OIOOOO] 



Mf:[RUrcakInProgross,000400"l 



MCfRActivoMask, 

MCfRIParityMask, 
MCtROParityHask, 

SFT[RIPai-i tyBit, 
StTiROPari tyBit, 



170000] 

000200]; 
000001] ; 

10]; 

1/]; 



Si:r[RStateRosetBi t, 110004]; 



Someone active (must be urinus bit) 

Input active 

Output active 

Poiior active 

Break in progress 

Activity bits 

Input parity mask 
Output parity mask 

Input parity bit 
Ouput parity bit 

State of RState after Reset command 
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•rstato bits 



Nolo: Upper byte is cleared at end or rraiiio 



MClRrCountlncr, 010000] 

MC| RPStntoCouivtBits, 170000"! 
MCLfirStateMask, OOOOIG] 

M(:[liFSlateIiiput, 000001] 



MC[RrStatoIncr, 

MciftrStateTiicrZ, 

MC[RI-StatoIncr3, 

HCrRI-StateIncr4, 

HC[RFStateIiicr5, 

HCrRCSLateTncre, 

MC[RFStatGliicr7, 



000002] 
000004] 
000000] 
000010] 
000012] 
000014] 
000010] 



Increment value to countdov;n 
f3its used in EOP countdown 
(-'stato bits 
Recoivop active (must bo ODD bit) 

FStato increments 
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* lUData Events 

MCfRCDataCooilChar, 

MC[nTDaUBreak, 

MClRIDataAbrt, 

MC[liXDataParUyErr, 

M(;[lvrDaUHag, 

MC[R:[l)ataFraineF.rr, 

ICfRlDataldle, 

• RllataMaskD its 



0000001 
OOO'lOOj 
000400'! 

ooioooj 

001000] 

ooi-ioo"! 

0014001 



Got a good charactor (as.ync, byto sync, bit sync) 

Break ciotectod (async) 

Got an abi't (bit sync) 

Parity error (async) 

Got a flag {bit sync) 

Framing error (async) 

Idle line (bit sync) 



HC[r(DataSiow, 
MC[ril)ataSizoMask, 



000001"! ; 
000360]; 



Slow speed, loss than 1200 baud 
Bits for data size in bits 
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IndicGS into CSD and tOCB 



HC[ 
MC[ 
MC[ 
HC[ 
MCf 
MC[ 
HC[ 
MC[ 
MC[ 
MC.[ 
HC[ 
Iter 
MCf 
MC[ 



niiule 
Rlnde 
filnde 
niiKlo 
Rlndo 
RTnde 
lUrulQ 
Rliide 
lilnrJe 
IJlndG 
iUiule 
RIndij 
RIiulc 
Rliidu 



xStartStop, 

xMask, 

xToDCE, 

xFroniDCE, 

xIOCHOut, 

xCharOiit , 

xl-StatcOut , 

xDCCOut, 

xTOCnin, 

xCharln , 

xFStateln, 

xBCCIii, 

xBCCTable, 

X P a rni , 



HC.[RIiKlcxnufPtr, 

MC[RIiidt!xNoxt, 

MCfRIiidGxOffset, 

MCiRTiulexCount , 

MC[RXiul<!xHaxCount, 

MC [ R I n d X C omni a n d , 

MC[RliidexCon)i), 



0] 
•I] 
2] 
3] 
'1] 

5;i 
n 

lOJ 
UJ 

iri 

13] 
14] 
XGJ 

01 
2] 
31 
'll 
5 J 
Gl 
•/I 



Index to start/stop status 

Index to nakyd notify mask bits 

Index to ToOCE b its/Coi;imand 

Index to FromDCE bits 

Index to Output lOCn poiiUer in CSn 

Index to Output character buffer 

Index to Output FState 

Index to Output BCC 

Index to Input lOCD pointer in CSB 

Index to Input character buffer 

Index to Input FState 

Index to Input BCC 

Index to BCC table pointer 

Index to Paramotor block poiiiter 

Index to Uuffer pointoi' in lOCO 

Index to Next lOCB field in lOCB 

Index to Offset field in-IOCB 

Index to Count field in lOCB 

Index to MaxCotint field in lOCB 

Index to Co land field in lOCR 

Index to Completion field in lOCB 
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TIMER CONSTANTS 



sere 

Sl-Tf 
SF.Ti 
SLT[ 
SFTf. 
Stl[ 

;;t;T[ 

SF T[ 

St rf 
SF.r[ 

:;et[ 



f! r iiiie 
Rinin 
RITim 
ROT i 111 
ROT i 111 
RFrim 
RT iiiiG 
ROTlin 
RTiiiio 
RITim 
RTiiiie 
RFTiiii 



rvalue, 377] 
erSlotl.o.oi 
erSlotlli ,1] 
orSlotl.o,?] 
orSlolHi ,3] 
erSlotLo, 15] 
rltnc,4]; 
GnSyiic,13]; 
rCoiinl, 14]; 
erSyiic, 17] ; 
rSimp lo, fi] ; 
c rvalue, 3T; 



Negative timer value for BSC timers 

Input timer s lot (low) 

Input timer slot (hi) 

Output timer slot (lo) 

Output timer slot (hi) 

Frame timer 

* Idle timer state 

* Output synchronous 

* Count down timer 

* Input synchronous 

* Simple timer 

* 3"<1.'18 usee per frame dispatch 



SCT[R0SliortT1merL0,AnD[LSI1IFTrRTimerCount,l'ri,LSin:FT[l , 4] , ROTimerS lotl.o]] ; 
SF.I[RFShortT1merLo,ADD[LSHIFTi;RT1merS1mple, 14] , LSHIFTf RliimerVaUio, 4] , RrtimerSlo tLoJ] ; 
Sl.T[RIId1eT1morLo, AllD[I.SIITFT[RTimerId1o,14],LSHIFT[RTim(:rV,Vlue,4],RITimerSlolLo]]; 
SET[nOId1eT1mcrLo,ADD[LSIIIFT[RTimerId1u, 14] , l.SMIFT[RT1morValuo , 4'j , ROT ime iSlotl.o ]] ; 
StT[RridleTimerl.o,ADD[LSirrFT[Rnmorld1o, 14] , LSIIlFTrRTime rVniuo , 4] , RP f ime rSlotl.o]] ; 
SETf RISyncT1merLo,ADD| LSilIFT[RITimer;;ync,l'J],lSHXf T[RTimerValuc,4],RITimer.SlotLo']]; 
SlT[R0SyncT1iiiert.o, AUD[l.Slin"T[R0T1morSyric, 14] , LSMIFT[RT ime rValue , 4] , ROT irnorSlotLo"]] ; 
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* MISC 

■» SC.TIHS232CSBIOC, 177500]; 
MC[IUZ3Z»ata, 000200]; 
MCiffMa-ikParity, 160000]; 
St- 1[ riBCCRoma i lule r , 1702 70] ; 

■' To DCE bits 

MCfRTonCRDTU, 000040]; 
MCnUol)CEinS,0002 00]; 
HC[rtToDCF.Mask, 000240]; 

■•• From DCE bits 



* CSB local iuii, iiiovoil to Global defs 
Oit to mask otT data bit on input 
Mask for parity typo bits 
[lit sync checksum reinaiiider 



Data tormina! ready 
Requorst lo send 
DTIf, \US 



MC[ 
MCi 
MC [ 
MCr 
MCr 
MCJ 
MCr 

Mci: 

MCI 
MC [ 
MC [ 
HC [ 



RFrninDC 

RFroniDC 

RFromDC 

RFroiiiOC 

RFromDC 

RFroiiiDC 

RFRomDC 

RFromDC 

RFromDC 

RFromDC 

Rlntcli 

RHotLat 



CRing, 000001]; 
Funiisedl, 000002] 
Euniisnd2, 000004] 
Fuinisod3,000010"| 
FCD, 000020] 
FDSR, 000040] 
FC IS, 000100] 
to roak, 000200]; 
El.ost ,000400]; 
FMask.OOOlCl]; 
dMask, 000601]; 
chedMask, 000170] 



* Rinq Indicator 

* Unused 

* Unused 

* Unused 
Carrier detect 
Data Sot Ready 
Cieai- to Send 

* break Detected 

* Data Lost (no tOCb) 

* RI, CD, DSR, CTS 

* break, RI, Oatal.ost 
'* Not 1. atchcdMask 



Foliowing two definitons must match those in kernel and mesa iirici'ocode . 



MC[pRSImago,34Z]; 
* MC[;pNWW,25]; 



* Image of RS232 in timer/kernel 
* Interrupt register 
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RSZ32 AT Locations 



* Tlio To Mowing four linkages are set up via a RS232!.iMk SIi.) Instruction 



SF.T[RTWakul.oc, ADD[LSHIFT[nDPa(jo , 10] , 010]] 

.SETf'nnWakol.oc, ADniLSHXKTf liBParje , 10] , 011]] 

.SlTi'lil'Wal^eLoc, ADD[LSIIirriRril'agR , 10] , 012]] 

Sl-T[IUWakeLoc, ADD[I.SIIIFT[ltrPage, 10] , OOO]] 



.SET[llS23ZStartLoc, Al)D[LSHIFT[RFPage , 10] , 001]]; 
SET[nS232StartLocl, ADD[LSHIFT[RFPage , 10], 002]]; 

SETfniBilLoc, AOD[LSIIIFT[RDI'aq0,]O],OOO]]; ' 

StTi RTJiiatLoc,ADDriSnnT[RBPage,10],020]]; 
Si;TrRtFlagloc,A0l)|l.Sll[rriRtlPaqG,10i,02 0]]; ' 

SCTf niParloc , ADDl LSIIIFTf RBPatjo , 10] , 040 1] ; 
SFT[RHdlaLoc,ADDrLSIIIFT[RBPage,10],040]]; ' 

StT[itOB1l,Loc, ADD[I.SIirFT[RBPagG,10],060]]; * 

S[;T[ROParl..oc , ADDtl.SHIFl [ RBPagc , 10] , 360]] ; 

Sr.Tf RlFramoLoc, ADI)[ LSHIFT[ RFPage , 10] , 20]] ; 
SKI('ROrramol..oc, APDJ; LSIIIFTf RFPage , 10 ] , 40]]; 
StT[Rir:Vontl.oc, ADD[LSIIIF T|;RFPage , 10 ] , 60]] ; 
SET[RISpc;(;Loc, ADD[l.SHTFr[ RFPaqe , 10] , 100]] ; 
.srT[R0S|)Gcl-OC, AODfl.SniFTfRFPage.lO], 120]]; 
SI I] RPCindl^oc, ADn[LSIIIFF[RFPaqG,10]', 140]]; 
Sr:i[RlSynLoc, ADn|;LSllIFT[RrPagG , 10] , 160]"]; 



* Recoivor entr.y point 

* Transmitter entry point 

* Po I tor entry po int 

* Frame wakeiip point 

* RS232 Start Location 

* RS232 'Jtart Localionl 

Disp location for input bit state 

Disp location t'oi- justi fy iiig char 

Disp location for input flag states 

Disp location for input parity 

Disp location for input icilo states 

Disp location for output bit state 
Disp location for output pai-ity 

Disp location for input frame state 

Disp location for output fi'aiiie state 

Disp location for input frame event 

Disp location for input spec chars 

Disp location for output spec chars 

Disp locations for CSU coniiuunds 

Disp locations for input SYN checking 
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" Dispatch tiiacros 

t.l6)[$RIBitDisp, 

Mt')[$ROnitDis|), 

Mei$orEvoritDisp, 

MQJSRFStateDisp, 

HE!j'.f niChurDisp, 

M0f$niJii;;tDisp, 

Maf $RPorityDisp, 

M0[$HPCni(JDinp, 

M0[$RSI,opfJils, 

M@i;$RSyiicCouiit, 

* Other macros 



D:t.SPArCII[//l, 11 
DISPATCM[//1,14 
DI3PATCIli//t, G 
DISPATCH[/'/i,l'l 
DISPATC1I[//1, 
DISPATCH[/7l, 3 
DISPATCH[7/1, 
DISPATCH[//l, 
I.0F[//1, f), 2]] 
LDI-i//l,14, 3]i 



M@[SKIPON, G0T0[.+2,//ll]; 



3]1 

2]] 
3]] 
2]] 
2]] 
3]] 

4]:i 



M(?[$RSetDispLo, 
Mei$RSeU)i3plli, 



AWDe[AOD[LSIIIFTC//] , 14] , //2] , 377]C] ; 
AND0[ADD[.LSHirTi//l,14;),//2i,177'lOO]C]; 



Dispatch on input bit stale 
Dispatch on output bit state 
Dispatch on input ovaiit 
Dispatch 01) franiR stuto 
Dispatch on spec char typo 
Dispatch on ciiaracter length 
Dispatch on parity type 
Dispatch on poller command 
Load stop bit count 
load sync count 



* Sk ip Macro 

et dispatch value Trom task.addr 



END; 
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Inser-t[DOLang]; 

MoMidasliii t;Laii(jVGrs1on;Mul tDIB; 

Tit1e[RS2320ccupiGd]; 

* Gonorated by BRD on June 26, 1979 11:54 AM 

* Locations reserved on pago 

IHr!F.SERVE[0, 0, 400]; 

* Locations reserved on pago 1 

* Locations reserved on page 2 

IMnKSEnVF.[2, 100,210]; 
IHI!F.SERVEi2,374,4;|;' 

" Locations reserved on page 3 

IMRESERVE[3, 0, 400]; 

* Locations reserved on page 4 

IMRESERVE[4, 0, 400]; 

* Locations reserved on pago 5 

lMRESrRVC[5, 0, 400]; 

* Locations reserved on page 6 

IHRESERVEfe, 0, 400]; 

* Locations reserved on page 7 

(MRESERVE[7, 0, 400]; 

* Locations reserved on pago lOB 

IMRESERVE[10, 0, 400]; 

* Locations reserved on page IIQ 

IMHESERVE[11. 0, 400]; 

* Locations reserved on pago 12B 

ThlRESERVEl 12, 0, 400]; 
'" locations reserved on pago 13B 
IHRESERVE[13, 0, 400]; 

* Locations reserved on pago 14B 

IMRESERVE[14, 0, 400]; 

* Locations reserved on pago 15B 

IMRESERVE[15, 0, 400]; 

* Locations reserved on pago 16B 

IMRESERVE[113, 0, 400]; 

* Locations reserved on pago 17B 

IMRESERVE[17, 0, 400]; 
END; 
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ii!sert[(i01annl ; 

NOMIDAS1MIT;LANGVERSION;MULTDI8; 
inscMn[G lobalDofs'J; 

TITLF.[RS232STO;i; 

* Last modified by Cliaiig on June 26, 1979 11:02 AM; move to Globaldefs 

* inodifiecl by Johnsson 011 June 13, 1979 3:03 PM; flow registors 

* mollified by l)RD on June 3, 19/9 4:09 PM 

* added liS232 SIO address constants 

* R3232 SIO instructions 



* M@|$nSetD1spLo, AMD@fADO[LSIlIFT[//l, 14] ,//2], 377]CT ; 

* M6[$!)SetlVisplli , AND('}[ADD[l.Sir[F 1[//1, 14] , //2] , 177400JC] ; 

.Set[nBPago,2]; 

Sot[PfPago,li; 

Set[RXDispatcliLoc,ADD[I.SHIFT[RnPago,10],010]]; 

Sel.rRFDispatchLoc,ADD[t-SHI["TiRFPago,10i,000]]; 



SET TASK [IG]; 
ONPAGF. [FFPage]; 

• The following two definitions must matcli those in Timor code. 



* RV[RFMotiry,4G]; 

* RV[RXNoLify,47]; 

* RS232 SIO noop (00) 
RSIORet: RETURN, 



RSZ32 SIO Stop (01) 

Set, dispatch address to be RS232S101 oc 1 4 



* Register containing fra.no notify values 

* Register containing bit notify values 



AT f RS232SIOLoc,0]; 



RXNoliFy < $RSetOispLo[RRTask,ADD[RS232SIOLoc,4] 1, AT [RS23?SIOLoc , 1] ; 

T <- RXNotify *- (RXNotify) OR ($RSetDisplli [RBTask , At)D[RS252S10Loc, 4]]) ; 
RETURN, RFNotify *• T; 



* RS232 SIO start (02) 



RXNotify <- $RSotDisplli[RnTask,RXDispatchLoc], AT [ nS232SIOLoc, 2 ] ; 

RXNotify <- (RXNotify) OR ($RSe tDi spf o[ RBTas k , RXD i spatcbLoc ] ) ; 

RFNotify <^ $RSetDi splii[RFTask , RFDi spatchLoc] ; 

RETURN, RFNotify <- (RFNotify) OR ($RSotD1 spLo[RF task, RFDi spatchLoc]) ; 



RS232 310 unused (03) 

RETURN, 
Following four REfURNs used to turn off RS232 notifies 



RETURN, 



RETURN, 
RETURN, 
RETURN, 

end[RS232SI0]; 



AT |:RS232SI0Loc,3]; 



AT rRS232S[0Loc,4]; 
AT i"RS232SI0Loc,5]; 
A I I RS232SIOLoc,6]; 
AT |_RS232SXOLoc,7 
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* Test pi-ograni for nS232C Microcode Loopback test 

* VofsioM 3.0 

* Last niodifiod by BRD on April 30, 1979 6:?.Z PM 

Sf;T[TestPage,4J; 

StT TASK[0]; 

ON PAGE[TostPago]; 



♦ Restart location. 

riV[RO, 0]; 
RV[R1, ij; 
RV[R2, 21; 
riV[Rl)aseO,4]; 
()V[RBaseOLo', f)]; 
iiV[RIiiBiir,01; 
RViRIiiDufLo, 7'|; 
RV( ROuLnuf ,10]; 
RV[ ROutDufI 0,11]; 
RV[R:[iiBase,12]; 
RVI'RIiiByUj.XS]; 
RViR()utBaso,l'1]; 
RV[R0utnyto,15]; 
RV[RCiU, 16]; 
RViROrr ,17]; 
RV|RCSBDnse,20]; 



"■ Toinp 

* Toiiip 

* Temp 
Pa;(o base rog 
Pago base reg 
Input buf base reg 
Input hiif base reg 
Output buf base rog 

* Output buf base reg 
Input lOCB pointer 

Input character 

* Output lOCB pointer 

* Output character 
Count from lOCB 

Offset from lOCU 

* Pointer to C5B 



SI:T[ RStartloc,ADD[LSllIFV[TostPage,]0],10]]; 

.Sot[HXDispatcbloc,AI)D[LSIiTrr[RBPaqe, 10 |, 010]]; 

Sot[KfOispatchloc,ADM[l SIIIFTJ RFPage , 10], 000]]; 

Set| RS23ZSTOIoc,ADD[ I.SIinT[TestPage,10],000]i; 

Set[R.SI.oc,ADD| ;RS232SI0l.oc,i]]; 

M(;[tmr30conreg ,324] ; *RM 324 holds 38usec timoi- restart constant 

RS: T <■ RO; * Notify tasl< at Start 

RO <- AND0[O3/7, RStartLocJC; 

RO <• (RO) OR (AMDIJ[007400', RSta rtl.oc]C ) ; 

APC&APCTasIc <- RO; 

RfTURN, RO <^- T; * Rostoro RO 

RStart: ClearMpanel, AT[RSlartl.oc] ; 

iJBaseO <^ OC; 

RBaseOLo «- OC; 

• Clear out memory from 1000 to 2000 

Rl <- OC; 
r <- RZ t- lOOOC; 
RDoClear: PSto rel[RBaseO , Rl]; 

T <- R2 (- (R2) < 1, CAI_L[RDoVask]; 
(IJ <- (R2) - (2000C); 
CO 10 [RDoCloar, ALU<0]; 

* Start transmitter by falling SIO 

RCSIiBase <- AND0[ 177 100, 377]C ; * CSO pointer 

RCSBBase < (RCSBBaso) OR (AND@[ 177100 , 177400]C ) ; 
RSctThingsrBRGAKPOINT, MOP; 
CALL [RSlOStart]; 
CALL [RFBagin]; * 

CALL LRSot38Tiraer]; 
CALL [RDoReset]; 
CALL I RDoStopTransmitter] 
CALL [RDoStopRcceiver]; * 
CALL [RDoStartReceiver]; 
CALL [ RDoSt a rt T ran sin i 1 1 e r] ; 



* Fuke SIO start 
Initialii-e frame dispatch code 

* Start 38 usee timer 

* Issue a reset command 
Issue a StopTransmi t ter command 
StopRecoiver command 
Issue a StartRocei vor command 
Issue a reset command 



Issue 



Incrmont MPanel and cliock buffers 



RlnBase «- 2000C; 

RlnBase <- (RlnBase) + (200C); 

ROutBase ♦- 200C; 
RLoop: CALL [.+1]; 

T < (RlnBase) ^ ( RIndexComp) ; 

PFetchl[RBaseO, Rl]; * Check Completion 

LU <- (Rl) AND (RCmpProc); 

GOTO [RGotlnput, ALU//0]; 

T <- (ROutBase) + (RIndexComp); 

PFetch][RBaseO, Rl]; * Check Completion 

LU <- (Rl) AND (RCmpProc); 

GOTO [RGotOutput, ALU//0]; 

RETURN; 
RGotOutput: Rl <- (Rl) AND NOT (RCmpProc); 

PStorel[RBaseO, Rl]; 

T <- (ROutBase) + ( RIndexMaxCount) ; 

PFetchl[RBaseO, Rl]; 

T «- (ROutBase) + ( RIndexCount) ; 

GOTO [RLoop], PStorel[RBaseO, Rl]; 
RGotlnput: IncMPanei ; 

Rl <- (Rl) AND NOT (RCmpProc); 

PStorel[RBaseO, Rl]; 

T ♦ (RlnBase) + ( RIndexBufPtr) , TASK; 
■ PFetch2[RBaseO, RInBuf]; 

r <- ( LSH[ RInBuf Lo, 10]) + 1; 

RInBufLo <- (RInBuf Lo)- OR (T); 

T <- (ROutBase) + (RIndexBufPtr), TASK; 

PFetch2|"RBase0, ROutBuf]; 

T <- ( LSH[ ROutBuf Lo, 10]) + 1; 

ROutBufLo *- (ROutBuf Lo) OR (T) ; 

T <- (RlnBase) + (RIndexCount); 

PFetchl[RBaseO, RCnt]; 

T *- (RlnBase) + ( RIndexOf fSet) ; 
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Preti:lil[RBasoO, ROrr]; 
RCompLoop: I <- ROff; 

LU <- (RCiU) - T; 

GOTO [REiidLoop, ALU=OJ; 

C,n,L [RGcUlriByte]; 

CALL [RGetOutByto'J; 

T <■ Rlnliyto; 

LU <- (ROiitByto) - T; 

GOTO [RCompLoop, ALU-0|, ROIT <- (ROff) + 1; 

BHLAKHOINr; 
REiidLoop: T <- {RlnBaso) + (RIndGxCoun t) ; 

Rl <• OC; 

PStorel[l!BaseO, Rl]; 

T <- (RInBaso) 1 ( RIiidexNex t ) ; 

PI-etclili'RR.iseO, RXiiDaso]; 

T <- (ROi'itBase) 1 ( RTiuloxNcx I) ; 

GOTO [RLoopj, PFotchl[RRasGO, ROiilBase]; 

* Subroutine to set tip TPC link for frame code 

RFBogin: Rl <- $RSe tDispLo[0 , RS?3?.StartLoc] ; 

GOTO [RrOoDi^p], Rl <•■ (Rl) OR ( $RSe tDI spHi [0 , RS232S ta rtLoc ) ) ; 

* Subroutine to fnko RS232 SIO Start Instruct ion 

RSIOStart: Rl <• $RSo tO i spLo[ IG, RSLoc] ; 

Rl <- (Rl) OR ($RSotDispHi[16, RSLoc]) ; 
RTDoOisp: APC&APCTask «- Rl; 
RDoTask: RETURN; 

* Suhroutino to issue a poller coinniands 



RDoReset: 
RDoStartRoceiver: 
RDoStartTi-arismi ttoi 
RDoStopRocoi vor: 
RDoStopTransini ttor : 



GOTO [RDoACmd], Rl < 20n00C 

GOTO [RDoACmd], Rl <- 30000C 

GOTO [RDoACmd], Rl <- lOOOOC 

GOTO [RDoACmd j, Rl <- fiOOOOC 

GOTO [RDoACmd], Rl < 60000C 



ROoACmd: UseCTask; 

T «- APC&APCTask; 

RO <^ T; 

r ^ (RCSBBaso) h ( RIndexToDCE) ; 

PFGtchl[RBascO, R2]; 

T f Rl; 

R2 <- (R2) OR (T); 

T ♦- (RCSBBaso) 1 ( RIiidoxToDCE) ; 

CALL [RWaitCmd], PStorolf RBasoO , R2]; 
RWaitCmd: NOP; 

NOP; 

NOP; 

NOP; 

PFetchl [RBaseO, R2]; 

LU <- LIIMASKI R2 J ; 

SKIPON [ALU//0]; 

APC&APCIask <- RO; 

RETURN; 



* Set 38 usee timer 



RSet38TimGr: RO <- ( tnir3iiconrog) ; 
stkp <- RO ; 
stack f- (50000c) ; 
stack <- (stack) or (176c) 
loadt imor[ stack] ; 
RETURN; 



'siinplo timer, value 7, slot IG 



* Got Input byte 

RGotlnByte: T < RSU[ ROI'f , 1] ; 

PFetchl [RInBuf,RInByte]; 

SKIPON [R ODD], LU <■ ROff; 
RGetrnEven: RETURN, RInByte <- RSHfRInBy te , 10]; 
RGetlnOdd: RETURN, RInByte «- RMMASK[ RInByte] ; 

* Got Output byte 



RGetOutByte: T <- RSH[ROff,l]; 

PFetchl[ROutBur , ROutByte] ; 

SKIPON [R ODD], LU <- ROff; 
RGoLOutEven: RETURN, ROutByte <- RSH[ROutByte , 10] ; 
RCetOutOdd: RETURN, ROutByte <- RHMASK[ ROutByte]; 
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l!S232 SIO code 

SET TASK [16]; 



• RS232 SIO iioop (00) 
DSIORot: RETURN, 

* RS232 SIO start (01) 



AT [RS232SI0Loc,0]; 



RXNotify <- $RSetOisplli[RDTask,F!X[)ispatctiLoc], AT [nS232SI0l.oc , 1] ; 

RXNOtify ♦- (RXNotify) OR (SRSetDi spLo[RBTnsk , RXDIspatchLoc] ) ; 

RlMotify «' $RSGtDisplli[RFTask,RrDi5patcliLoc]; 

RETURN, RFNotify <- (RFNotify) OR (SRSctD i spEo[RFTask, Rl D1 spatchLoc]) ; 

RS232 SIO stop (02) 

Sot dispatch address to be RS232SI01 oc + 'l 

RXNotify <- $RSetDi.spLo[RBTask,ADD[RS232SI0Loc,4]"|, AT [ RS232SI0Loc , 2 ] ; 

T <- RXNotify *■ (RXNotify) OR ( SRSelDispil i [RBTask , ADD[ RS232SI0L.OC , 4] ]) ; 
RETURN, RFNotify <■■ T; 



RS232 SIO unused (03) 

RETURN, 

Following four RETURNS iisod to turn off RS232 notifies 

RETURN, 
RETURN, 
RFTURN, 
RETURN, 



AT [RS232SIOEoc,3]; 



AT rRS232St0Loc,4'| 
AT iRS232SIOEoc,.'r| 
AT [RS232S10Loc,6] 
AT rRS232SI0Loc,/ I 
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nUILTIM[rNSRT,24]; 
!MS(!r[DOlANG]; 
NOMIDASINIT-.MULIDIQ; 
Ti rLE[Tiinor';|; 

;rMSRT[G1obalDofsJ; 

* Last Modified b.y Chang on August 20, 1979 6:40 PM, move Tii.ior's rags 

* Modified by Johnsson on July 10, 1979 7:10 PM , New Koinel faults 

* Modified by Chang on June 1, 1979 6:18 PM, RXNotify = 52 

* Modified by Sandman on May 8, 1979 12:16 PM 

* Added Pilot high resolution timer; 

* Modified by Sandman on April 6. 1979 7:36 PM 

* Pinned dov/n timer code; 

■> modified March 26, 1979 1:07 PM - added nS232C hooks 

* added poller dispatch code in realtime clock 

* added bit and frame dispatch code in timer dispatch table 

* Modified March 22, 1979 9:35 PM by Chang for PushButton Boot 

* replaced "CheckStop" and "ChockStopl" by "Timoi-Ret" 

* Based Kernel. mc by CPT March 1, 1970 

IMRt;Sl;RVE[l, 0,100]; * Don't use F.PROM area 
1MRFSERVF.[2,0, 100]; * Don't use EPOOM area 

RV[temp,bl]; 
RV[in itr0,()2]; 
RV[ initrl,53 I; 
RV[initr2,64 1; 
RViinitr3,65i; 

* The following definitions MUST HATCH THOSE IN RS232C MICROCODE!!! 

SotTask[TTask]; 

RV[EONotiry, 40]; * Register containing notify valuo for Ethernet 

liVj RENotify , 46] ; * Register containing f rairie notify values 

RV[ KXMot i fy , 47] ; * Register containing bit notify values 

* l^nd of RS232 definitions 

n\/[RSImago,42]; *Imago of RS232 hardware register 

* RV[RWO, 37] ;* temporary for ControlStore address during initial clear and read/write 
RV[RWO , 06 I ; ""temporary for ControlStore address during initial clear and load/write 

RV[RTCL0W,25]; *low half of Alto RealTimo clock 



HV|"RTCI OVJ,f35] 
•" l!\/| TMR38C0N 
RV| iMR38C0N,5 



*low half of Alto RoalTime clock 
24]; "constant for 38usec timer 

4]; 'constant for 38usec timer 



RV[RlIMER,5rj; 'Tefrosh timer register 

RV[REER,/7]; "refresh address 

RV[R377,77J; "use this register to clear R file 

SEf| Boot Star tLoc, add [1 Shi ft[rimorinitPage2 , 10], 372]]; "Push button start loc. 
St T[ Ready ToGoLoc, add [ 1 shift [Timorin itPage2 , 10], 3 7 4]]; "End of Pi'oln i t i al ization 

OnPage[Timerini tPago2] ; 

SetTask[0]; 
BootStart: 

temp <- (lOOOc), attBootStartLoc] ; * set task I/O 
temp «- (temp) or (116C); 

apc&apctask +- temp; * gotop Write CS loci 
Return ; 

MC[EaultLoc, 100]; 
Set[BeginEault, 100]; 

OnPago[ fimerin i tPagel] ; 

SetTaskfO]; 

* Write at Location 1: 

• T <- APC&APCTask, goto[FaunOccured] , AT[1]; 

initrO «- (GOOOOC) , at[1116]; 

initrO ♦- (initrO) or (150c); 

initrl ^ (60000C) ; 

initrl <- ( initrl) or (Ic) ; 

initr2 <■ (15C) ; 

initr3 «- (IC); 

t «- initr2 ; 

LU «- initrO; -"T has data 2 

APC&APCTASK <- initr3; 

WRITECS0&2; 

LU *- initrl; 

APC&APCTASK t- iiritr3; 

WRITECSl; 

initrO <- (45C) ; 

initrl <- (lOOOC); 

initrl <- (initrl) or (177C); 

initr2 <- (3C); 

initrS *- (00); 

t *- initr2 ; 

LU «- initrO; *T has data 2 

APC&APCTASK <- initr3; 

WRITECS0&2; 

LU <- initrl; 

APC&APCTASK *- initrS; 

WRITECSl; 

temp «- (161000C); * notify task //16 

temp +- (temp) or (376C); 
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npc&npctask <- temp; 
Return; 

Setrask[TTask'); 

RTMP «- (lOOOOOC), at[i370]; 
CI.RTXHERS: LOADTIMER[RIMP] ; *Cloar out all Timors 

T <- OC; 

RS?3Z <- T; 

RTMP <- (RTMP) + 1, RF.SETMF.MERRS; "Clear any pandiiiy monory errors 

LU ^- (RTMP) AMD (17C); Hhero are llkl timers 

REFR «- (OC), DBLGOTO[IMITDOME, CI.RTIMERS, ALL)=0'J; 
IN n DONE: 

LoadPage[T inierPago] ; 

RSTmago *- Oc, c)otop[SetUpRef'] ; 

OnPagc[TimerPaQe 1 ; 
SotTask[TTask;i; 

SET[TiinGrBaso, AnD[LSMJFTrT iiiierPage , 10], 300]]; 

SET| TiinorTablo, ADD[LSIITEt[ r iiiiorPago , 10], 3/10]]; 

SET[AuxT-imorTal)lo, ADDI'I SHIKT[TiinerPage, 10], 360]]; 

.SET[RGf roshBaso, ADD[LSIICFT[TiinerPage, 10], 244]];'* sharo mcl dispatch table 



*Set up the Refrosli timer 

*siiiiple timer, value 10(J,slot 17b 



SetUpRef: 

I.U <• TIMER; 

RTIMER < (50000C) ; 

RTIMER < (RTIMER) OR (257C); 

LOADTfHtR[ RTIMER]; 

ca II f T ImcrReturn] , AI[T imorliase , 35]; 
T imerWakoiip : '"Timer wakeups come here 

t <- (Di,spatch[Timer, 14, 1]) , AT[ fimorBaso , 36]; 

DISP[(imers], AT[TimorBaso, 37J; 

I iine rRe turn : 

RIMP ♦• (lOOOC); * transfer to task //O 
RIMP < (RfMP) or (374C) ; 
apc&apctask *- RIMP; * goto ReadyToGo 
Return ; 

OnPago[Tlmerin i tPage2] ; 

SetTask[0]; 
ReadyToGo : 

LoadPage[ InitPage] , at[ReadyToGoLoc] ; * goto START of Initialization 
gotop[SIART]; 

OnPage[0]; 

Setrask[l/]; 
"Pago Zero stuff 
*We put the instruction i'or DufferRefill here.. 

*x377x: gotop[.], at[37/]; "dummy 

* foilowiiuj 2 words replaced by tlie microcodes 

* loadpage|0], goto[x37 7x] , al[0]; *buffer I'efill code is on page 

* T <- APC&APCTask, goto[Faul tOccured] , AT[1]; "First, must save ape 



'sstkp, stkp (stkp is read complemented) 



Faul tOccurod : 

RXAPC < T, AT[BeginFaiil t]; 

T <- GETRSPECI 147], AT[101]; "ctask, ncia 

RXCTASK < T, 'AT[102]; 

T ^ (GETRSPEC[103])' xor (377c), AT[103]; 

RXSTK <- T, ATil04]; 

RTMP < 20c, AT[105]; "Set stkp to 20 in case there was a stack overflow pending 

Stkp <- RTMP, AT[106]; 

T <- (GETRSPECI 107]) xnor (Oc), AT[107]; "aUiresult, saluf (both read complemented) 

RXALU <- r, ATfllO]; 

T *- GETRSPEC[157], LOADPAGE[0], AT[111]; "page, parity, bootreason 

RXPPB < T, RESETERRORS, GOTO[Fau I tStart] , Ari;il2]; 



"Timer 
Timers 



OnPage[TimerPage] ; 

dispatch table for task 16 
SetTask[TTask]; 



REFRESII[RE 
ADDTOriMER 
GOTO [Time 
RETURN, AT 
RETURN, AT 
APC&APCTas 
RETURN, AT 
RETURN, AT 
RETURN, AT 
APC&APCTas 
RETURN, AT 
RETURN, AT 
RXNotify <- 
RXNotify <- 
RXDoMotify: 

APC&APCTas 
APC&APCTas 



FR], goto[Rof reshNoxt], AT[TimerTablo, 00] ;*slot 17 

[TMR38C0N], goto[ RTCNext] , AT[TimerTab1e, 01] ; "slot 16 

rRet], APC&APCTask «- RFNotify, AT[TimcrTable , 02] ; "slot 15 -- frame dispatch 

[TimerTable,03]; 'slot 14 

[TimerTablo,04i; "slot 13 

k <- EONotify, GOTOfT imerRet] , AT[ FimerTable , 05] ; "slot 12 (Ethernet slot = EOTask) 

[TimerTable,06]; "slot 11 

(;TimerTable,07]; "slot 10 

[TimerTable,10]; "slot 07 

k f- E0Not1fy2, GOTOfT imorRet] , AT[TimerTable , 11] ; "slot 06 (Ethernet slot = E0Task2) 

[TimerTable,12]; "slot 05 

[TimerTable,13]; "slot 04 
(RXNotify) OR (RONotify), G0T0[.+2], AT[TimerTable , 14] ; "slot 03 (RS232 output) 
(RXNotify) OR (RONotify), GOTO[.H], AT[TimerTable , 15] ; "slot 02 (RS232 output) 

k <- RXNotify, GOTO[RXReturn] , AT[TimerTable , 16] ; "slot 01 (RS232 input) 
k ^ RXNotify, GOTO[RXReturn] , AT[TimerTable , 17] ; *sl ot 00 (RS232 input) 



AuxTimers 

* g 

* g 
g 



oto[.], AT[AuxTimerTabTe, 00] 

oto[.], AT[AuxTimerTable, 01] 

otof.], ATiAuxTimerTablo, 02] 

goto[.], AT[AuxTimerTable, 03] 

goto[.], AT[AuxTimerTable, 04] 

goto[.], ATiAuxTimerTable , 05] 

goto[.], AT[AuxTimerTabla, 06] 

goto[.i, AT[AuxTimerTable, 07] 



* Refresh Task (Used elsewhere) 

* Alto Real Time Clock (Used at RTCNext) 
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yoto[ 

QOtO[ 
(j0(.0[ 
()0 to[ 
Q0t0[ 

qoto[ 
gotoi 

(J0t0[ 



SCTrASK[16]; 



AT[AiixT imerTnblo, 10] 
AT[AuxrimorTab1e, 11] 
ATfAiixrimerTablo, 12] 
AT[AiixT i 1110 r lab Iti, 13] 
AT[AiixTinierrable 
AT[Aux I" iinoi'Tuble 
A1[AuxT iinor-Tiiblo 
AT[AiixTimorfablo 



14 
15] 
16] 
17] 



Etiiornet slot = EOTask (cloesri't iiso 1t) 



RS232 output (Used at liXRetum ■^ 1) 

RS232 output (Used at llXIioturii) 

RS232 input (Used bj/ RTClock at IMCMoxtH) 

RS232 input (doesn't use It) 



♦Refresh has been started. Increment the address. 
Ref reshNext; 

RKFR *-. (REI'R) i- (20C), ATf Ref roshBase , 0]; 

ClockLo <■ (ClockLo) + 1, A"r[RfifreshBase, 1]; 

Skip[no Carry], REFR <- (RCFR) and not (lOOOC), 
Clocklli <- (Clocklli) + 1, AT[nor roshBaso, 3]; 

ADDT0T1MER[RTIMER], AT[Ref reshBase , 2]; 

* check for Midas halt 



AT[Rer reshBa.se , 4]; *no carries beyond bit 6d 



Tiiiie 

* 1 11 c 
*sig 

* re 
RTCM 



rRet 
rcmo 
n bi 
St i 
oxl : 



1u «- 1df[FFauit,l, 1], AT[Rerroshnase, 6]; * check for Midas 

T I- PRINTER, notoirinierRet, aUi = 0], Al [Ref reshBase. 10]; 

RIMP ♦- T, AT[herroshBaso, 7]; 

T <- RIMP <- (RTMP) and (10000c), AT[Rer reshBase , 11]; 

T «- (PRINTER) and (T), AT[Ref reshBase, 12]; 

skip[aUi//0], AT[RufreshBase, 13]; 

return, AT [Rer reshBase , 20]; 
goto[.], SETFAULT, AT[Rer reshBase , 21]; 
return, atfRef reshBase , 22]; 

RETURN, AT[Ref'roshBaso,6] ; 
irt RTCLOW by 40. The display task win chock tlio 
t. , and increment MM 430 and clear the bit if it is on. 
f time for an ns?32 poll (every 25G x 38 usee, ~ 10 msec) 

It) < LDF1;RTCL0W, 3, lO], AlfAuxTimorTable, 01]; * Check if bits 3 . . 12 ai-e zero 
SKTP[AEU=0|, RTCLOW *- (RTCLOW) + (40C), AT[ AuxTimer Labi o , 16]; 



RXNot ify 
RXMotify 



(RXNotify) AND NOT (3C), return, AT[AuxTimerTable , 10]; 
(RXNoLify) OR (RPNotify), GOTO[RXOoNoli fy] , AT[AuxTimorTab1e, 
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TITLr:[uiDF.FS]; 

"last, edit by Chang August 20, 1979 0:36 PM, move .!" inter' s regs 

» edit by CPT Docombcr 22, 1978 3:18 AH 

■• edit by Saiidnuii March 23, 1979 3:02 PM 

*UIDEFS.MC -definitions for lUTFP revision I 

SET[iriUTFPBASEADDR,l.SHtFT[uiUrFPPACE,10]]; *FinST ADDRESS OF UTFP PAGE 



♦REGISTERS AND CONSTANTS USED BY UTFP TASK 
SETTASK[uiUTFPTASKJ; 

SET[iiiREADSTATREG,l]; 

SFi[uiDliREG, tj; 

SFT[iiiCREG,2"|; 

SrT[iiiHKBUF,3i; 

SET[iiiCXREG,4i; 

SET[iiillTAD,5J; 

SET|'iiiBPREG,6J; 

StTruiCURSM, 7]; 

SET|;LnD[iADDR,ADD[ 1 shif t[uiUTFPTASK, 4] , l]]; 

HC[U'lkDkgiidR it, 100]; 

RV[LriDWA,OJ; *bit map baso register 

RVIu IDWAl,!]; 

RV[iriTEMP,2]; *iiuist he even/odd pair, sec uiOCBDONE for PFETC1I2 

RV| iii TEMPI, 3 |; 

RVruiMPSFAlUS,')]; *bits 0-4: count. 5:7: part,1417: vs STATE 

RV| iiiMOUSEDELXY,!) ); "DITSO-O: XDELTA, 10-15: YDEl.TA 

RvftiiTMSG.G 1; *1NC0MINC PARTIAL MESSAGE 

RV[ii iXMSG,7]; 'MESSAGE HELD FOR POSTING RY VSYNC 



RV|" 
RV| 
RVf 
HV[ 
RV[ 
RV[ 
RV| 
RV[ 
RV[ 
RV[ 



iiiLINK, 
II iNWRDS 
11 iDUA, 1 
uillEPAT 
iiiSLC, I 
u illCADD 
uiOTEMP 
uiOTEMP 
u IQTEMP 
uiQTEMP 



10]; 
,11] 

2]; 

.12] 

3J; 

R, 13 
,10] 
1,11 
2, 12 
3,13 



'DISPLAY CONTROL Rl.OCK WORD 

'DISPLAY CONTROL BLOCK WORD 1 
M)ISPLAY CONTROL BLOCK WORD 2 

'"Used during ini tia lii^ation only 
DISPLAY CONTROL BIOCK WORD 3 
|; "Usod during initialization only 
"Used for Storo4 to post mouse buttons 



;uiVS4) 



RV[u iBIJI PTR, 14]; 

RVI uillECNT , 14] ; *Uscd during initialization only 

RVf uiCRWORD, 15 j; *IMACE OF HARDWARE CONTROL REGISTER 

RVf uiVSCOUNT, 10]; *Count of linos per field. 

RV| uillELINK, IG]; *Uscd du ri ng in i t i al i za t ion only 

RViuiLlNLSPERFIELD, 17]; *b04 = 1122b linos per field 

mc[ Iprio, 122]; 

nu;[lpfhi, 1000]; 



liVfuiCCO, 10] 
RV[uiCCl, 1 I 
RV[uiCC2, 12 
RV[uiCC3,13 



usod during initialization only 

used dui-ing initialization only 

used during initialization only 

used during initialization only 



* RV[RTCL0W,25]; '"Must bo the same as timer's 
RV[RTCL0W,5G]; 'Must be the same as timer's 

RV[uiCX,30]; *Cursor X 

RV[uiCY,31]; "Cursor Y 

RV[uiCNT,32]; 

RViuiBASE,34 ]; niASC REGISTER PAIR 

RV[uiBASEl,35]; 

RV| uiNBUFPTR,36]; 

RViui BUTTONS, 37]; 



*COUN 
mc[ho 
inc[he 
mc[he 
mc[hG 
mcfhe 
mc[he 
mc[he 
111c [ho 
mc[he 
inc[he 
mc[he 
mc[he 
mc|'hu 
mc[he 



di 
TS (D 
rOl, 
rll, 
rlh,2 
r21 , 
rSl, 
r3h, 1 
r41 , 
r51, 
r5h, 
rOl, 
r71, 
rSI, 
r91, 
r9h,3 



splay 

ITS 1 
203] 
2 01] 

0400] 
200] 
101] 

2400] 
203] 
307] 

5400] 
100] 
116] 
107] 
110] 

5400] 



constants 

9) AND PATTERNS (BITS 12-15) FOR HE RAM 
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insert[dOI aiigj ; 

NOMXDASINIT;LAHGVERSION;MULTD:[B; 
insert|G1ob.ilDofs J; 
insortiuiOofs'l; 

titleiUlTiiit]; 
'last edit by Johnsson Apcil 7, 19/9 12:29 Pit 

•Initialisation for lUTFP 

SrT"rASK[iJiUTFPTASK"]; 
ONPACR[Di splay In itPage]; 

displayinit: uiHl'ADDR <■■ (ZERO), AT[Di spl ayin i tLoc] ; 

0UrPUT[ti1l1F.ADDR,inCHEG]; "CLEAR THE COMTROI. REGISTER 

uillEPAT <• horOl, CAl.L[niEOADIIEl ; *LOAD THE IIOIilZOMTAL EVENT RAM 

iiiHEPAT <- (herlh) ; 

UillEPAT < (UillEPAT) or (lierll) ,CALl[uiLOADIIE] ; 

uitlEPAT <■ (her21), CALL[uiLOADME ] ; 

UillEPAT <■ (herSh) ; 

UillEPAT ^ (uiHEPAT) or (horSl) ,CALI [u iLOADIIE] ; 

uiHEPAT <• (her41), CALL[uiLOAl)HE] ; 

UiHEPAT <• (herOh) ; 

UiHEPAT <r (UillEPAT) or (horOl) ,CALL[uiLOADIIE;| ; 

uillEPAT <- (herGl), CAELfuiLOADHEJ 

UiHEPAT «- (horn), CALL[u iLOADIIE] 

UillEPAT *■ (herfsl), CAl I [uiLOADHE] 

UillEPAT t- (horflh) ; 

UillEPAT < (UillEPAT) or (lior91) ,CALL[u i 1 OADHE ] ; 

uiMELOADED: 

uiBASE »■ zero; 

uiBASEl *- zero ; 

uil IMESPEREIELI) < Ipflo ; 

uiLINESPERFIEl.D <- ( u il.lNESPEREIELD) or (Ipfhi) ; 

*sot kcvljoard words to -1 (key up) 
" uiTEMP «- 177000C; 
T «• uiEEMP <■ (uiTEMP) or (30C); * 17/030 
uiCCO *- (ZERO) 1; 
uiCCl «- (ZERO)-l; 
uiCC2 <- (ZER0)~1; 
uiCCa <- (ZERO)-l; 

PSiORE'iruinASE.uiCCO]; • mouse , koysot , etc . 

T <- UiTEMP <- (uiTEMP) I (4c) ; * 177034 

PSTOREII'uiBASE.uiCCO]; * keyboard[0 : 3] . 

T «• uilEMP <■ (uiTEMP)i (4c); * 177040 

PST0RE4[uiDASE,uiCC0]; * keyboard[4 : 7] . 

uiCRWORD <- (220C); "ALLOW WAKEUPS, CDIAG<-0 ' 

0UTPUT[uiCRW0fU),uiCRrGJ; *ALL0W WAKEUPS 

UiTEMP <- 377C; 

OUTPUT[uiTEMP,uillTAB]; *load the HTAB counter with 377 

uiTMSG <- (ZERO); 

uiMPSTATUS ^ T <- ZERO, call [ u i FINHE] ; 

uil-fNK <■ T, loadpago[uiutfppa(je"l; *First wakeup comes here 

uiBUFPTR «-T<- 377C,Ci0T0p[uiCSD0NEi; 

•SUBROUTINE TO LOAD THE HORIZONTAL EVENT RAM 

•(ADDRESSED VIA CXREG) 

uiLOADHE: T *• LDF[uiHEPAT, 1 , 11]; 

uiHECNT <- (T); 
uiMELOADLOOP: uillECNT *- (uiHECNT)-l; 

GOTO[uiEINHE,ALU<0], usGCtask; 

OUTPUT[uiHEADDR, uiCXREG]; 

uiHEADDR <r (uiHEADDR)H; 

OUTPUT[uiHEPAT, uillEBUF] , go to[ uiMELOADLOOP] ; 
uiFINHE: RETURN; 

endfui init] ; 
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itisert[cl01 ang] ; 

IJOMIDASIMIT; LAMGVrJISIOM ;MULTDIQ ; 

iiisert[GlobalDef,s]; 

iiisorti UrOef's I; 

TrrLE[oxtendeil-addrQss-UlTASK]; 

*rask microcode! for lUTFP 

* Last modified by Chang, Aufjust 20, 1979 6:38 PH. inovti Timer's regs; 

* modified by Johnssoii, April 7, 1979 12:29 PM; 

SETTASK[uiUTFPTA,';K]; 
ONPAGE[iriUTFPPAGf]; 

SF.T[uiPAI!T,ADD[uiUlfPliASEADDR,20;]"|; *wliich part of the backchaniiol messacjo is coming. 
Stl[iriSIICUR,AI)D[iriUTFPDASEADDR,60i]; * cursor shift 



"Siiliroiit ine to chock for and gather messages. 
-Call with DISPArcH[iiiMPSTATUS,5,3j,CALL[LiiCIIKMSG]; 
*fieturns without tasking 



uiCIIKMSG: 



DISP[uiPAnTO J 



"Dispatch on MPSTATUS. PART 



•Test for message (lOATTN) 

liiPARTO: GOTO[iiif-ISGRTMl , NOATTEN], usoctask, ATfuiPARF ,0 I ; 

iiiMPSTATUS <- (uiMPSTATUS) OR ( 110400C) , RETURN ; *START MSG , 
*Set IiiMPSTATUS. PAIVT-1 , uiMPSTATUS. C0UHT--14 



II i PARTI 
LiiPARr2 
uiPART3 
iiiPART4 
nilNCXY 



T <- (lOOOC), Dr>EGOTO[iii IMCXY.uiNOlNCXY, lOAl tENl, AT[u iPART , 1] ; *^){ bit 

T <- (177000C), DDLGOT0[iriIM(;XY,iiiN0tNCXY,TOATTFN;i, AT[u iPART , 2] ; 

T ^- (IC), DBlGOTO[uiINCXY,uiMOINCXY,IOAf TEN], AT[ii iPART , 3] ; 'h-Y bit 

T «- (177C), DIJEG0T0[LiiIHCXY,iiiN01NCXY,l{)ArTEN:|, AT[ii i PART , 4 | ; * -Y lUT 



uiMOUSEDEIXY <- ( uiMOUSEDELXY) > (T); 
uiMOUSEDEEXY <- (uiMOUSEDELXY) AMD NOT (400C); 
uiNOINCXY: uiMPSfATUS *- (uiMPSTATUS) i- ( 400C ) , GOTO[uiMOREMSG] ; "Increment part by 1 



uiPARTO: T <- uiTHSG < RSU[uiTMSG , 1] , DDLGOTO[uiHSGONE , uiMSGZERO, lOATTEN] , A I [ui PART,5] ; 

iiiMSGONE; T <- iiiTMSG < (uiTMSG) OR (lOOOOOC); 'OR a I bit into the message. 

"Increment (Negative) count. 

uiMSGZERO: uiMPSTATUS ^ (uiMPSTATUS) + (4000C), Dt!LG0TO[u iMOREMSG , u iENDHSG , R<OJ ; 

uiMOREMSG: USECTASK; 

uiMSGRTNl: RETURN; 

"Post the keyboard and mouse buttons 

uiENDMSG: t'*- 1 cy[ui I MSG , 1 ] ; "bit 1 is the keyboard change bit 

uiBUTTONS<- T, goto[uiNOKBOCIIAMGE , a1u> = 0;!; "save buttons 

uiKHDCHANGE: t <• 1 dl[ui TMSG , 4 , 10] ; "keyboard data 
uiXMSG <• (1sli[uiXMSG,10]) or (t); 

iiiNOKHDCHANGE: USECTASK; 

UiMPSTATUS <- (uiMPSTATUS) AND NOT ( 177400C) , RE lURN; "Clear count and part. 
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*Do horizontal processing. Wo know that the conH'ollor needs data. 
xpreVSO: DISPATCII[u iMPSTATUS, b, 3] , call [ iiiCHKMSG] ; 

pruVSO: T«- 2C, call [uiCheckCursor]; 

uiVSO; OUTPUr[uiN[IUFPTn,i]iBnRr.G']; •precompiitod uiflBUFPTn to hardware. 

T * (uiDBA) AND NOT (IVC); 

lliDWA *• T; 
*3tart the rirst XOFF.TCII 
ui DWT : XOr-F. FCll 16[ u iBASK , u iDBADDR] ; 

*Calcii1ato the read buffer pointer, the count, and noxt lino's DBA 
'in the sitadow of the fii'st lOFETCM (If Ifioro is to bo more than one). 

T *- uiBUFPTR *- 377C; 

iiiNBUFPTR f- (uiNBUFPTrO (3070); •From hero on, iriNBUFPTfi is used 
•for the count (-(NWRDS + (ADDRESS and 173))) 

T< l)HMASK[u iNWRDS]; 

UiBUFPTR »- (uiBUi PTR)-(T) ; *377- number of words for the display 

UiBUFPTR <- (UiBUFPTR.) OR (lOOOOOC); *Wakoup disable bit 

r<~ (RllMASK[uiNWRDS]) i(T); • T <■ Z*NWRDS 

uiDBA<(u iDBA) i(T) ; *uiDBA is now sot up for the next scan line 

uiDWA<T<-(uiDWA) i(^:OC),CALL,[uiDWTl]; 

*l.oop for second through NLh lOFETCll. 

uiDWll: uiNBUFPlR< (uiNBUFPTR)i (2()C) , GOTO[u inUFD2 , R>=0]; 

lOFETCH L6[uiBASE , uiDBADDR"| ,GOTO[u iBUFD2X , ALU> = 01 ; 

uiDWA< T<-(u iDWA) + (ZOC),RFTURN; 

uiBUFDZ: uiVSCOUNT <- ( u iVSCOUNT ) - 1 , DlilGOTOr u i 1 NDF IFID , u iCONT, R<0'| ; -"chock for field done 
uiBUFDZX: uiVSCOUNT <- ( ui VSCOUM 1) - 1 , DBLGOTO[u i FNDFIFFD , u iCONT, IKO |; 
uiCONT: u i SI.Cf( u ISI.C ) -1 ,DBLGOTO[u iOCBDONE , uiMDCBZ , R<0] ; 

'•Calculalo the noxt line's uiNBUFPTR 
*in the shadow of the last 10FETCH16 
uiMDCBZ: u INBUFPTR <- 377C; 

T< lDF[uiDOA, 14,4]; 

UiNBUFPTR ^ (uiNBUFPTR)-(T) ; 

I< RIIMASK[u iNWRDS]; 

UiNBUFPTR *- (uiNBUFPTR) (T); 

OUiPUT[uiBUFPTR,uiBPREG], goto[ xp reVSO] ; 

The DCB is finished, 

uiDCBOONF: DISPATCII[u iMPSTATUS , S , 3] , CAFF[u iCIIKMSG] ; 

T<(uilINK); 

uiBASFl <■ OC, GOTO[uiCetNextDCB,AI.U//01; 
•The DCB chain is exhausted. 

OUFPUi [uiBUFPTR, uiBPRFG]; *Send read BUFPTR to the hardware 

T *- 2C, call [uiCheckCorsor] ; *does TASK return 

(jolo[ui\/Sl]; 

uiGetNoxtDCB: 

uiBASt <- T; *T contains FINK. Set base register to point to next DCB 

OUTPUT[uiBUFPTR, UiBPRFG]; *Seud read BUFPTR to the hardware 

UiNBUFPTR <• 377C; *Init for later 

nop; "two instr after output 

PFFTCII2|uiBASE,uiDBA,2]; *Fetch DBA.SFC 

UiBUFPTR <- 377C; "In it For later 
*Check for long pointer addressing 

PFETCII2[uiBASt,uiLINK,0]; "Fetch Link, NWRDS 

FU< uiSFC,goto[u iLong,R<oi; 

*Short Pointer 

T *- UiDBA; 

uiBASE <- T,goto[uiEvenOdd]; 

*l.ong Pointer 
ui Long : 

PFETCFI2[uiBASF, uiBASE, 4]; *fetch directly into the base register 

uiSLC *■ (uiSLC) AND NOT (lOOOOOC); "'clear the sign bit 

*Bias uiDCB.SLC by -2. Note that if uiDCB.SLC = OR 1 , at least one 
"scan line will be displayed. 

uiEvenOdd: LU *- LDF[uiCRWORD, 17 , 1] ; *Chock CvonField 
UiSLC <- (uiSLC)-(ZC),G0TO[uiDBA0K,ALU//0]; 

uiDBABAD: T-i- RIIMASK[uiNWROS] ; 

UiBASE < (uiBASE)+(T); 
uiDBAOK: T<-LUF[uiBASE , 14 , 4] ; *Set up NBUFPTR for the noxt scan 

uiNBUFPFR ♦- (uiNBUFPTR) (T) ; *uiNBUFPTR <- 3770 earlier 

T<-RIIMASK[uiNWROS]; 

uiNBUFPTR<-(uiNBUFPTR)-(T) ; 

*Now fix up the base register so that it is hex aligned and DBA contains the residue 

T «- (uiBASE) and (17C); 
uiDBA <- T; 

UiBASE *- (uiBASE) and not (170); 
•fix up the higli half of the base register 
T <- lsh[uiBASEl,10]; 
uiBASEl *- (nHMASK[uiBASEl]) + (T)H; 

T<- 20, can[uiCheckCursor]; *returns to VS2 

*We have just picked up a new DCB. Wo must output IITAB, 
"then go to normal state processing. 
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iiiVS2: T «- l.DF[iriHWRDS,2,6]; •cnlculate IITAB 

l.U<LDF[uiNWRDS, 1,1]; 'black backcj roiiiul bit 

iiiBUrPTR <- (uiBUFPlR) - (T) -1 ,COTOf .+2 , ALU//0 J ; HiiBUI-Pfn <■ 3 770 e.irllor 
uiBUFPTfi *- (uiOUrPTR) AND NOT (200C); 
0UTi>UT[uiBUrPTR,uillTA(!],goto[uiV30;i; "sencl it 

uiLNDFIEl.D; iiiDASEl <• OC ; 

iiiCRWORD «- (uiCRWORD) xor (3C), goto[u iFDlJ ; 
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■"'We have displayed the entire chain and the field is not dono. 

*Wait for end of field. 

xpreVSl; r»- 2C, can[uiChcckCursor] ; 

preVSl: cal 1 [iiiWAKtOrF] ; 

uiVSl: DISPATCll[uiMPSTATUS,5,3],CALL[uiCIIKMSGJ; 

iiiVSCOUMf <• (uiVSCOLINf)-l, GbTO[uit-IELODONF. , rxO] ; 

goto[xi3r6VSl]; 



*rui-n off wakoailow and return 

uiV'/AKF.OFF: iriCRWORD ♦- (uiCRWORD) AND NOT (200C); *AnowWake *- 

OUiPUT[iriCRWORD,uiCRrGl; 

uiCRyORD *- (uiCRWORD) OR (200C); 

uiBUFPTR <- 377C; "sot up for next run. 

* OU rPUT[ ui C RWORD , u i CREG "] , rot u rn ; 
OUTPUT[uiCRWORD,uiCREG]; 

Outputwai t ; 
nop; 
rotUF'n ; 

•Check for cursor visibio. Enter with T=2. 
uiCheckCursor: 

uiCY<-(uiCY)-(T) ,GOTO[uiCURRET , R>-0] ; 

uiCX «- (uiCX)i(lOOOC); 

I.U <- LDF[uiCX,3,l]; 

G0rO[uiSENnCX,AI,U^0;i; 

uiCX <• GC ; 'fiiiisliod displaying the cursor 

MiCY t- lOOOOC; 
uiSENDCX: 

OUTPUT[uiCX,uiCXREG],goto[Outpuf.waif|; 
uiCURRtF; return; 

* riio field is finished. Make Vsync pulse. 
uiFIFLDDONE; 

uiCRWORD *• (uiCRWORD) XOR (3C); '"compiemont field, set PreVS. 
uiFDl: uiBUFPTR >- ZOOC; 
*send black background so that hsync vi/on ' t bo screwed up 

OU(PUT[uiBUFPTR,uiHTABJ, cal 1 [u iWAKEOPF] ; M-eturns to uiVS3 
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*v;e n ro in tho first scan line of a vortical sync pulse. 
♦I'ost tlio inouso COORDIMATES to core. 
liiVSa: II i BASE <- OC ; 

r* (uil!UFPTn) + (26C); »42'll) AND 'I^fib ■-■ Mouse x ivi,! y. 

l'FETCII2[uiBASE, jiDDA]; *u iOfJA and uiSLC aro uscrj u.s tomps . 

DISPATCH[uiMPSrATUS,5,3l,CALLru1CIIKMSG]; 

uiMOUSEDLLXY <- l.CY[u iMOIJoEDELXY , 11 J , DQl.G0T0[u1SEMl , ui NSEMl , R<OJ ; 

uiSEHl; T <- ir/C,GOTO[uiSEMlFIN]; 
uiNSFMl: T <- (ZFRO)-l; 

uiSlMUTH: r<- ( LDEfuiMOU-SEDELXY , 7 , v;] ) XNOR (T); 
uiDBA *- (uiOBA) ^{1) ; 

T<nriMOUSEDELXY«-IDF[uiMOUSEDELXY,0,7 ],DDLCOTO[uiSEM2,MiHSEM2,R<0]; 

uiSEH?: T ♦- (uiMOUSEDELXY) XNOR (177C); 

LiiNSEMZ: uiSlC <- ( iii SEC ) i ( T) ; 
T<- (uiBUFPTR)i (25C); 

PST0RE2ru ifJASE.uiDllA]; *Restore coordinates 
uiMOUSEDELXY <- (ZERO), cail [uiWAKEOFF] ; •returns to tiiVS4 
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"Post the mouse [illTTONS 

iirVS4: iiiBASF^J //OOOC; ♦MOTC mod i f i cat ion of uiDASE 

uiDASt< (uiDASt)>(30C); *Fotcli 17/030 

PFETCtlll II )i!ASf;,tiiOTEMi',0]; »uiQrEf.lP overlays LINK, NWRDS, DOA , 5LC. 

DISPAICI![iiiMPSIATUS,5,3]",CALL[inCHI<MSG]; 

•convert UTFP mouse button order into ALTO order 

*0n the UTFP, the sequence Cor the buttons (BUTT0NS[13 : 16 ]) is right, 

•in iildlo , 1 eft , and I's moan buttons defwessed. 

-On the AITO, 177030[15 : 17] correspond to 1 eft , right .middle , and I's 

*in memoi-y mean button MOT depressed. 

t*- 1df[ui[)UTrOMS,13, 1]; * right button 

uiTEMP <- t; 

t *- Idfl uilUJTTONS, l'T,l]; "middle button 

UiTEMP ^ ( IshluiTEMP.l'l) or (t); 

t <- (uiBUTFONS) and (4C); "left button 

t *■ (UiTEMP) or (t); 

uiOFFMP <- (uiOTEMP) or (70); 

t <- uigiEMP <- (uiQTFMP) xor (t); 

• ignore uiQTEMPl and uiOTUMP2 

UiQTFMP 3 <■ t; 

rion; * wait for write of register 

PS r0liE4[u inASE , uiQTFMP , 0] ; 

ulDASE t ZERO; *reset base register 

"Fetch new deb chain header and interrupt mask. 

T < (uiBIJI PfH) I (21C) ; n>420, Since u iUUF PTr(-3 7/ . 

PFETCII2f u iilASE.uiLINK]; "Get new deb header from 420, intmask from 421 



'chock for realtime clock update 

*snve STKP 

» uilEMP <~ 325C; *Point to RTCLOW 

UiTEMP <- 355C; *Point to RTCLOW 

T<- iiSfKP; 

STKP <- uiTEMP, uiTEMP <- T , NoRegll.ockOK ; 

uiTEMP <- (uiTFMP) XOR (37/C); *STKP read inverted 

STACK ^(SFACK) AMD MOT ( lOOOOOC ) ,GOTO[u i NORTCOV, li> =0] ; 
*nujst update RTC 

uiTEMPl< 400C; 

r^(uiTEMPl)+(30C); 

PFFTCIIll uiBASE.uiFEMPI]; 

uiTFMPl <- (uiTEMPl) + 1; 

PSl OREl[ui BASE, ui TEMPI 1; 
'cause vertical field interrupt 
uiMOKTCOV: STKP >- uiTEMP; 

loadpago[0 J ; 

T < uiNWROS, carip[DoInt]; 



interrupt mask fetched fi-oni 421 above 



cari[uiWAKEOFF]; "Returns to uiVSii 



UI lask.rnc 



3-Noy-79 19:16;53 



Page 



'Post ttin keyboard 

uiVSO: lu «- LllMASK[uiXHSG'l, call [iri KPOST] ; 

111 *■ LIIMAr>K[iiiXMSii], can [iri KPOST]; *iJo it again for oUior byto 
D[SPATCII[iiiMPSTArUS,5,3 |,CALL[iiiCIIKMSG]; 
iiitlASe <- ZtPO, G0T0[prGV36]; 

u i KPOST. ■ 

uiTEMP <- KeyTal) IciM ,(joto[ . +2 , a1 U//0] ; *if no data, retiirti right away 
iiiXMSG <- 1s"li[uiXMSG, 10], rotLini; *sliit"t to other keyboard char 

uiTtMP <^ (uiTEMP) or ( KoyTablel.) ; 

t ♦• Idf [uiXMSG , 1,0]; *Got word number (4 bytos poc v/ord) 
UiTEMP <• (iiiTEMP) '^ (T) ; '"form rinal address 
I <• ldf[uiXMSG,6,l]; 'sot hZ t.o high/low word 
APC&APCtASK <- uiTLMP; *Addross to read in Control Store 
PEADCS; 'get the word 

I <■ CSDATA, AT[iriUTrPBASFADDR,300]; "must be at an even locution for READCS 
uiDUA *- t; 

lu ♦• LDF['u iXMSG, 7, 1]; 'low or high byte 
goLo[ . i^2,'a1u//0], uifiASE <- 177000C; 
uiDBA <- HSH[uiDBA, 10]; 'Need upper byte 
uilSASE <• (uiBASE) i(3'!C) ; *uiBAS£ ^ 177034C 
r< (LDr[uiDnA, 10,3]); "Got word number 

PKtTCII![uilJASE,uiNWPDS]; 'uiNWRDS is a temp ■ I'etch Alto kbd word 
■]; *Got bit number 

*l'ix base regis tor for store 
"Do the function uiTEMP <- 100000 rshift uiDBA 



uiDBA <- LDr[uiDBA, 11,'! 
uiBASE <- (uiBASE)-t(T) 
UiTEMP <r- T <• lOOOOOC; 



UiDBA <■ RSH[uiDBA, 1], goto[ . i? , PEVEN] ; *test bit 15 
uilEMP <- T <- RSH[uiTEMP,l]; •shift 1 

uiDBA <■ PSII[uiDBA,l], qotoT . i2 , REVEN] ; 'test bit 14 
uiTEHP <• T <- RSIILuilEHP,?]; "shift Z 

uiDBA <■ RSII[uiDBA,l], goto[ . i 2 , RtVEW ] ; "test bit 13 
uiTEMP <- T <- RSII[uiTEMP,4]; *shift 4 

UiDBA <^ RSII[uiOBA, 1], go to[ , i 2 , RFVEM] ; "test bit 12 
uiTEMP < T <- RSII| UiTEMP, 10]; 'shift 8 

uiKDD: "tost for key down (0) or up (1) 

UiXMSG < isli[uiXHSG,10], DBLGOTO[ui KDOWN , u i KUP , r> = 0] ; 

uiKDOWN; uiNWRDS <- (uiNWRDS) AND NOT (T), GOTO[u i KSTORE] ; *key down, clear bit 

uiKUP: UiNWRDS <■ (uiNWRDS) OR (T); *key up, set bit 

uiKSTORE: goto[uiMSGRTNl] , PSTOR£l[uiBASE , uiNWRDS , 0] ; *store word 



preVSG: uiBUIPTH ♦- 3770, cal 1 [uiWAKtOFF] ; 'returns to uiVS6 
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"Set up llie cursor. 

"Get cursor coordinates f roni 4266 (X), and 42/b (Y), 

uiVSG: T < (u iBUFPTRj-^^yC) ; •uiBUII'IH = 37/ on entry, 

|||'ETCll2[uiBASE,uiCX"|; *Cursor X,Y coonlinatoa 

DI3('ATCIi[uiMf'STATUS' &,.']], CAl.l.[ II iCIIKMSG]; 

"^Exporimen t has detormineil that the cursor is 3 iiibijlos to tho left 
*and one scan line bdow its proper position. We fudge... 

u1CY <- (uiCY) + .l; 

uiCX ♦- (uiCX)>(14C); 

•The even scan Vines of the cursor will be displayed if CY is even 
"and the field is even, or if CY is odd and the field is odd. 
'Otherwise, the odd scan linos will be displayed. 

uiBUFPTIi <- (uinurPTR)i-(3ZC) ; "uillUrPTR <- 43tb 

*Tlie cursor X counter is loaded by liSF from CXREG , It is 
•ciocked by [(EdgoClock and SeiCursM) or (NCik and (IISF or VS'))]. 

*Whon the cursor is visiliie, -X is loaded into the CXREC in the 
•scan line preceding tho cursor, and this value is loaded into 
*tho cursor counter by IIS. V/hen VS = 0. tho cursor counter is 
'"incremented by NClk, and when it becomes 0, the next i3 nibbles are 
*sont to tlie display. 

*llere, wo vjant the cursoi" counter to address the cursor moniory so 
*that wo can load it. We send to CXREG, and during each of tho 
"next f! scan line times wo vnll send b bytes of cursor data to the 
''m<!iiiory, then send a new segment value to uiCXREG. 

•uiVSCOUNT is used to hold the value to be loaded into uiCXREG. 
uiVSCOUNT <- lOOOC; *Start load at segment 1. 

T< 1 Dr[uiCRWORI), 17, 1]; *Now finish setting up tho pointer to tho 
•cursor area in main storage. 

T<- (LDI[uiCY,] /, I]) XOR (T) ; 

T<- (uinUEPTl!)>T; 

uiDBA <- T, gotoiuiMORECSETUP'i; 
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uiMORECSCTUP; OUTPUr[uiVSCOUNT, ii iCXREG], cal 1 [u iWAKF.OFF] ; 

*Load ono sefjmont of the cursor- memory (5 bytes plus one siero bytn). 
*!tiG atklnoss was sot up during the provious scan lino. 
iiiVS7: T »- MiDUA; *Po1nter to cursor segment 

('I-I:TC[I1[m iRASF. .uiTF.MP]; * Fetch S'.jgtnont 

i)XSPATCII[ulMPSTATUS,5^3],CAt.L[uiCHKMSG;|; 

uiDBA »■ ( uiDI3A) + (2C) ; *lMcrf;inont pointer (by 2 due to intorluce) 

l)TSPATCII[uiCX,16,2'|; "Detennino amount to shift word. 

DtSP|;uiSIIC0J,ui1XMin <- 17C; 

"Subroutine for loading the cursor memory: 

uiSENDCUR: uiNWfiDS <■ T, uscctask; *uiHWRDS is a temporary, not used during VS. 
OUrPUT[uiNWRDS,uiCUfiSH], return; 

tiiSMCO: T<- OC, GOTO[ui.SHCDONE"| , AT[u iSMCUR , I ; 
uiSIICl; T * LSII[uirEHP,31, A r[uiSHCUR , 1] ; 

uiTFMP < RSllfuiTEMP, 1), OOTO[uiSIICDONE"| ; 
uiSIICZ; T^ISII[uiTEKP,'2L ATf u i SIICUR , 2] ; 

uifEMP <" RSIIfuiTtMP.a |,GOTO[uiSMCOONEl; 
uiSHC3: T <^ LSII[ui FFMP , 1] , AT[uiSIICUR , 3] ; 

uilEMP < RSH[uiTEMP,3J, GOTO[uiSHCDONE ] ; 

uiSHCDONE: uiTEMPl <- (uiTEMPl) AND (T) ; 

uiCNT < 2C; 
uiSENDCI-OOP: T< iJ)!-[u iTEMP, , 4 | , CAI.L[uiSENDCUR"| ; *toop for first 4 bytes 

iiiCNT <- (uiCNT)-l, GOrO[u iDONFCUR , fXO] ; 

u i 1 FMP < LSHTu iTEMP , A] , COTO[ li iSFNDCLOOP J ; 

uiOOfJECUR: OIJTPUT[uiTFHPl , u iCURSM'j ; -"Send !ith byto. 
liji I.DF[uiVSC0UNT,3, 1|; 

0UlPUFrniTEMP,uiCURSHl,GOTO[uiCSErUPD0ME,ALU,'/01; 'TEMP is (6th byto) 
uiVSCOUNT «- (uiVSCOUNT) H( lOOOC) ,GOTO[uiMORECSEUJP]; "Incromont segment address 

uiCSETUPDONE: T<- LDf [uiCX , 6 , 10 | ; *CX counts nibbles, not bits 

uiCX *- (ZFRO)-F; *And it is negated. 

l.U< u iCRWORD, goto[uiCSUONE,RODD]; *Test field 

uiCY< (niCY)-(IC); 
uiCSDONE: ui VSC0UNT<-6C ; 

OUTPUT[uiVSCOUNT,uiCXREG], call [uiWAKEOFF] ; "returns to uiVSlO 
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*VJg are in the last scan line of a vertical s.vnc pulse. 
*Set up uiVSCOUNT for ttio next field. 
HiiLXNK has rv4Z0, fetched during VS4, 

uiVSlO; uiCRWORD *• (u iCRWORD) AND NOT (2C); *ProVS ^ 

OUTPUT[ u i C RWO[!D , u i C REG ] ; 

iiiDUrPTf! <- (uiBUFPTR) OR (lOOOOOC); 

I U <■ LDF[uiCIIWORD, 17,1]; 

T <- uiLINtSPF.HFIE,LD,DBl,COrO[uiEVX,i.iiODX,Al.U-^0'l; 
uir.VX: UiVSCOUNT < T, ROTO[uiDCBDONF.l ; 
uiOUX: UiVSCOUNT <- (ZFRO) i (T) H , GOToiuiOCBDONE] ; 

onUfiiitask]; 
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Tit.lQ[XWDQfs]; 



Oof ini lions for Xorox wiro microcodo 



» Last iiiocliriod by Murray on September 15, 1979 1Z;03 PM 

* BasG refj changes 

* modiried by Murray on September 13, 1979 7:47 PM 

* moditiod by Chang nn August 22, 1979 6:00 PM , tnc/o Timor's regs & CSB 

* modifiod by Chang on August TO, 1979 8:13 AM, (ie-Chanyn CSB 

* modifiod by Chang on August 3, 1979 12:00 PM, Chango CSR Ass ignmonts 

* inodifiod by Chang on June 25, 1979 9:36 PM , [0Notify2 = 344 

* modifiod by Roy Ogus on Juno 13, 1979 12:25 PM 

SET TASK [0;|; *For R addressing 

7o 

* Defs in GiobalDofs 

So t[ riTasIc, "J; * Wire input task number 

Sot[EOrask, *|; * Wire output task number 

SGt|EITask2, *]; "■ Wire input task number (second controller) 

Seti l;0Task2 , *]; " Wire output task number (second ooiitroiler) 

Set[EEPagQ, '•]; * Emulator (for SIO) page number 

SetfElPago, "j; * Wire input page nuiiibor 

SetfEOPage, *]; * Wiro output page number 

% 



"Dispatch table locations 
Set[EERaso, LSHIFT[EEPago , 10]]; 
SotrEESlOLoc, ADD [EEBase, 1201]; 
Sotf EE2SI0foc, ADD'[EF»ase, I'lO]]; 
* Nolo roilovring dof in GlobalDofs: 
*Set[RS232S10Loc, add[ LSh i f t [ KKPago , 10], 370]] 



Dispatcli location for SIO (bits 16, 17) 
Dispalch location for SIO (bits 14, 15) 



"Address constants 

Self ElStarlLoc, ADD( LSHIFT fllPago, 10], 160]]; 
Set[EOStartLoc, ADD[LS1IIET [lOPago, 10], 130]]; 
Soin lSLartLoc2, ADDfl.SIKFI |l.IPago, 10], 164]]; 
Set[E0StartLoc2, ADD[I.SH[F1 [ tOPago , 10], 134]]; 
Self EOT imerDonofoc, ADD[LSII1FT [FOPage, 10], 110]]; 



Input notify location 
Output notify location 

* Input r\olify location 

* Output notify location 
Output TimciDone notify location 



* Use to write state from Task 
MC[XOWritoSlato,OR0rLSiiIFT[EOTask,4],Oj]; 
MC[XlWritoStatG,OR@j I SIIIFTLErrask,4J,0]l; 
MC|;XOWritoStato2,OR0["I.SHIFT[EOlaskZ,4 1,0]]; 
MC( ;XIWritcState2,OR0[l SHlFT[lirask2,4],0 jj; 

• Constants to define microcode type. Mask used for SIO return. 
HC[AitoCthorMask, 77400]; *"A1to Ethernet emulation 
MC[EtiiorIOCBMask, 37400]; * Ethernet hardw/aro lOCU microcode 
McfxWirelOCDMask, 5/400]; * Xerox Wire liardware lOCB microcode 



* I/O Address Registers 
SetlXlData, 3]; 
Set[EIIIosl, 1]; 
Si!t[XV/Status, 2]; 
Sel[XOData, 1]; 
Soti'xWRendStato, 2]; 
SetfXWWri testate, 0]; 



Input data 

Host ID (Ethernet only) 

Status/State register 

Output data 

State register i-ead 

State register write 



RV[ 
RV[ 
RV[ 
RV[ 
RV[ 
RV[ 
RV[ 
RVi 
RV[ 
RVi 
RV[ 

RV[ 



REGISTER dofini tions 

See XWIask.mc for description of register usage. 

Those are task specific registers, 

there is an identical set for input and output task. 
Note: reg. and 1 used by Dolnt. 

InitialCSD, 0]; * CSB pointer passed in this reg from ini ti al izo .mc 
XWfemp, 2]; 

XWComplct ion , 3]; * Not used very often 
XWIndex, 4]; * Qirad word fetch 

XWCount, 5]; * These must matcli the layout in the lOCB 
XWPtr, 6]; RV[XWPtrHi, 7]; 
XWIOCB, 10]; 
XWIOCBHi, 11]; 
XWCSB, 12]; 
XWCSBIli, 13]; 
XWTempl, 14]; 



RV[XWTomp2, 15]; 
Register definitions for first ' 
XWCSBl, 4]; RV[XWNextIOCB, 5]; 



RV[XWTemp3, 16]; RV[XWTemp4, 17]; 
words of CSB (overlay others) 
RV[XlHALo, 6]; RV[XIMAH1 , 7]; 



* State Register command words 
KCrxWSetPurgeMode, 2601; * Sots: 
MC[XWSetOutputEOP, 107]; * Sot.s; 
MCrXWEnablelnput, 220]; * Sets: 
MCI XWEnableOutput, 103.1; * Sets: 
MC[XWDi sab loin put Out put, 300]; 



Enable Input, PurgeMode 
Enable Output, OutputEOP, JamEnable 
Enable Input 
Enable Output, JamEnable 
Clears: Input and Output 



MC[XWDisableInpul, 200]; * Clears: Input state register 
MC[XWDisableOutput , 100]; * Clears: Output state register 
MCfXWPream, 252]; * Xerox Wire preamble 



*Sta 

* St 

SET 

SET 

SET 

SET 

SET 

SET 

SET 

SET 



tus bit definitions: as read with Read State/status command, 
atus bits (Ethernet) 
[XSIJam, 100000]; 

40000]; 

20000]; 

10000]; 
4000]; 



[XSOURun 
[XSIORun 
[XSOCOLL 
[XSICRC, 

[XSOFAULT, 2000]; 
[XSOPAR, lOOOJ; 
[XSIBA, 400]; 



Receiver-detected collision (Jam) 

Output Underrun 

Input overrun 

Transmitter-detected collision (Collision) 

Input Bad CRC 

Output Data Fault 

Output Bad Parity 

* Input Bad Alignment 



MC[XISMASK, OR@[XSIJam, XSIORun, XSICRC, XSIBA]]; 



* Status bits reported for input command 
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I'age 



MC[XOSMASK, 0li9[XS0URim, XSOCOl.L, 
MC[XOCoTlisionMask, XSOCOLl..;]; 



XSOFAULf, XSOPAR]]; 



Output StiUu.'i bits 



Status bits (Xerox Wiro) 



[XXStBA, lOOOOOJ; 
[XXSTORun, 10000]; 



XXStJani, 

[xxsicnc, 

[XXSOPAR, 
[XXSOURun, 
[XXSOCOl-L, 
[XXSOFAULT, 



20000] ; 
10000]; 
4000]; 

2000]; 

1000]; 
400]; 



Input Bad A I itjiimen t 

Input overrun 

Recei vor-detectecl collision (Jam) 

Input Bail CRC 

Output Bad Parity 

Output Undorrun 

Trnnsni itter-dotGcted collision (Collision) 

Output Data Fault 



MCfXXISMask, OROCXXSIJam, XXSIORun, XXSICRC, XXSIBA]]; * Status bits ropoited Tor input command 
MC[XXOSMask, OR(?[XXSOURun , XXSOCOI..L, XXSOFAULT, XXSOPAR]]; * Output Status bits 
MCixXOCoVlisionMask, XXSOCOLL]; 



* Completion codes 
MC[XV;GoodPackot , 040000]; 
MC[XWFrrorOadHWPkt, 070000]; 
MC[XWErrorZoroUuf , 064000]; 
HC[XWPktI!ufOvorrun, OGIOOO]; 
MC[XWt:irorCountOV, 062 000]; 



On input (longtii<3) and output (lengtli=-0) 
Input oiily 
Output only 



* I inier dof ini t ions 

Set [ XWT imerRunning , 0); * State 5 is simple timer 

Set I XWl imei-Idle, 4]; * State 4 is idle 

MCfXWTimerMask, LSIIlFr [XWT iinorRunning , 14]]; 

MC[ XVadlel iinor, I. SHIFT [XW T ime rid lo , 14]];' 

MC| pXWKandoniReg , 377]; * Number of random number (REFR registor) 

MC[pi:ONot ifyReg, 340]; * Register used for timer notify 

MC[ pEONoti fyReg2 , 344]; * Register used for timer notify (second board) 



Indices into blocks 



" lOCH's 

MC[XWIndexNext, 0]; * (Sliort) Pointer to next lOCB 

MC[XWIndoxTrnnsInt , 1]; * Retransmission Mask 

MC[XWIndexComplet ion , 3] ; 

MC[XVJIudoxBuf f or, 4]; " 1-ong pointer and leiigtii (Quad word aligned) 

* CSB's 

MCrXWIndoxlleader, 0]; * First 4 words of CSB 

MC[XWIndGxPtr, 1]; * Pointer to current lOCB 

McfxWIndoxWake, 4]; * Wakup Bitmask 

MC[XWIiidoxNoICBCount, &]; * Count of times when no ICB chain (For tost only) 

MC[XWlndoxScratcl), 10]; * Quad word scratcli area 

* macros: Ilie attn on tlie XW i re is backwards to avoid the BranchBurp 
H0|$SkipNOATTEN, IFE0[XWiro, 0, SKIP[NOATTFN] , SKIP[IOATTEIJ]]] ; 
H@[$Goroi:OATTEN, IFE@[XWire, 0, G0TG[//1, lOAlTEN], G0T0[//1, NOATTEN]]]; 
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insort.[(101 ang] ; 

MOMIDASIHIT;! ANGVI".RSTON;MULTDIB; 

iiisort[G1obalDcrs I; 

inser-t[XWDers]; 

tit.le[XWInit]; 

*L.ast modified by Murray on September 15, 1979 11:22 AM 

* Merge in XWXnit2 and Base liogistor changes 

* modified by Murray on September 14, 1979 12:48 AM 

* modified by Koy Ogiis on June 13, 1979 12:27 PM 

■"For register addressing. This code actualiy runs at tiie assigned task iovol. 
SET TASK [0]; ' 

' ETitF.RMET controller INITIAl IZATXOH. 

* Will only bo called if tliero is an F.ttiornot board in the machine. 

* Head Ethernet ID from hoard and form constant to be returned by SIO. 

* Setup Notify value in EONotifyReg 

ON PAGE [EtherlnitPage]; 

Xllnit: CALL [XWSetiip], XWTemp >- pEHostRegx, AT[E thorlnlnitLoc] ; 

InputfStack, Elllost |; 

Stack <■ (Stack) AND (377C); '' Ho.stMumbor in right half 

Stack ^ (Stack) OR ( t.Fr0[XWi re , 0, EthorlOCBMask , XWi roIOCDMask | ) ; 

RETURN, Stkp ♦- XWTemp4; * restore Stkp 

XOInit: CALL [XWSetupj, XWTcmp <• pFONo t if yRog , AT[EtherOut InitLoc ] ; 

* Compute value for EONotify register, used for notify after timer wakoup. 

XWTemp <- AND0|'O377, EOTime rDoneLoc |C ; * Low 8 bits of ARC 

XWTemp <- (XWTemp) OR (OR0[1 sh i f t| LO Task , Hj , ANDO[ 7'100 , EOT imorDoncLoclJC ) ; * High 4 bits of ARC 

T >■ Xlffemp ; 

Stack <- T; 

RETURN, Stkp «- XWTcmp4; *resloro Stkp 

* Second Board 

XIInit2: CALL [XWSetup], XWTemp f- pFllostRcgx, AT[E thorin rnitLoc2'| ; 
RETURN, Stkp <- XWremp4; '"restore Stkp 

X0Init2: CALL [XWSetup], XWTemp <- pEONot ifyRog? , AT[EthorOutIn i tLoc2] ; 

* Compute value for EONotify register, used for notify after timer wakoup. 

XWTemp <- AND(i)[03/7, EOT iniorDoneLoc |C ; • Low 8 bits of ARC 

XWTemp <• (XWTemp) OR (ORt)[ I shi f t[ E0Task2 , M ] , AND0[ 7400 , LOT ime i-DoiieLoc JjC ) ; * High 4 bits of ARC 

r < XWTemp; 

Stack <- T; 

REPURN, Stkp < XWTomp4; *restore Stkp 



XWSetup: 



T <- InitialCSB; 
XWCSl! <- T; 
XWCSIULI <- OC; 
XWIOCBlli < OC; 

T *■ GETRSPEC[103] xor (377C); *Stkp (inverted) 
UseCTask, XWTomp4 <- T; 
RETURN, Stkp <- XWTemp; 

end[xvn re ini t] ; 
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iii.sert[d01aiu)] ; 

NOMIDAS:[MIT;LANC;Vi;RSION;MUl.TI)in; 
insGrt[GloboriOofs"J; 
iiisQrtfxWDefsJ; 

title[XWInltZ]; 

*l,ast iiiodif led by Roy Ogus on June 22, 1979 3:55 I'M 

SET TASK [OJ; *f'or register addressing. This co'le roalTy runs at task level EITask 

* KTIIE[(MI;T controHor TNITIAI.IZATTON. 

" ("his siibi'outine is for the second conlroiler board (executed by EITask). 

* Will only be called if ttiei-o is a second Ethernet board in the machine. 

* Will only be called aftoi- init of first controller (which sot host address). 

* Initializes the notify register. 

Ofl PAGE [ EthorlnitPage]; 

XWirelnit?: T «- GETRSPECriOS] xor (3770), at[EtherInitLocZ J ; "Slkp (inverted) 

* Compute value for tONotifyZ register, used for notify after timor wakeup. 

XWDase <- ArJDQ(0377, EOTiiiiorDoneLoc'|C ; * low 8 bits of APC 

XWi3ase *■ (XWUaso) OR (OR0[1 shi f t[i;0Task2 , 14] , AND@[ /400 , EOTiiiiorDoneEoc;|]C) ; * High 4 bits of APC 

XWBaselli < pEONot i fyRegZ ; 

Stkp <- XWBaselli, XWBaselli ♦- T; 

T <• XWBase; 

Stack <- T; 

RETURN, Stkp <- XWBaselli; "restore Stkp 
*Noto base registers are initialized each time input or output is disabled, so we 
*do not need to do it hero as long as input and output are disabled before enabled. 

end[xwi roinit2] ; 
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insert[(IO lany]; 

NOMIDASINIT;l.AHGVF.RSION;MULTDIB; 

inserl[G1oba1Dofs]; 

inserli'XWDersl; 

rrn.E [XV/SIO]; • Xerox Wire microcode (Defs in XWDefs) 

* Written by Roy Ogus. 
7o 

Last modi nod by Roy Ogus - Jimo 13, 1979 12:31 PM 

Notes: ~ This version handles 1 Ethei'net or 1 Xerox wire board. 

- This module hns SIO code for XWiro. 

- Contains Conditional assembly. 

XWire^O for Ethernets, XViire^l for Xei-ox Wire boards. 

Log: - Filo reorganization (January 15, 1979 11:Z3 AM). 

- Conditional assembly (February 4, 1979 5:30 PM). 

- Upgrade to 3.0 (April 12, 1979 .0:14 PM). 
7. 

SET TASK [0]; 

* LMULAIOR TASK -- SIO instruction 

ON PAGE [EtPage]; 

•This code executes at task 

* We get hero after llio SIO instruction has been issued. 

* Ihe SIO control bits are in AGO. 

* Tv/o board format (using lOCBs): 

* StO bits 16, 17: board 1. 

* - NOP 

* 1 - Disable output (TPC is initialized). 

* 2 - Disable input (TPC is initialized). 

* 3 - Disable board 1 (TPC not initialized) 
» SIO bits 14, 15: Hoard 2. 

- Unused (NOP) 

* 1 - Disable output (TPC is initialized) 

* 2 - Disable input (TPC is initialized) 

" 3 - Disable board 2 (TPC not initialized) 

* Note: RS232 SIO bits are 10, 11. 

* To enable boards, use OUTPin[Command , StateRogis tor] ; 

* board 1 : StatoPeg i s tori = LSIIirT| EOTask , 4]. 

» board 2 : Stateltog i s tor2 = LSIIIFT[E0Task2 , 4]. 

* Commands : 

* EnableOutput = 1030. 

* Enablelnput = 220B. 

* SIO returns (in ACQ): 

" AC0[0:2| - 3 - Alto-emulation Etiiornet microcode 

* - 2 • Xerox Wire hardware, lOCB microcode 

* = 1 - Ethernet hardware, TOCO microcode 
AC0r3:7| - 37B 

* AC0[10H:17li] = Host number (Ethernet) 

* (Interim) Controller Status Blocks: 

Board 1: OCSB at 177200B, ICSB at 177220B. 

* Board 2: OCSD at 177240B, ICSB at 177260B. . 

* This code is really part of the emulator, and uses its temporary registers. 

* iriEMPl ^ 1 if called from Mesa, if called from Nova. 
« Get host address constant for Ethernet. 

EESIO: ACO <• f, at[ELS tartLoc | ; »savo control bits (useful only if called from Mesa) 

* nS232 SIO command. 

T f- LDF[AC0, 10,2 ]; * RS232 SIO bits are 10, 11 

RTemp <- AND0[377, RS232SIOLoc JC ; 

RTeinp < (RTemp) OR (OR0[LSHIFT[16 , 14] , AND@[00/400 , RS232SI0Loc J.IC) ; 

RTemp <- (RTemp) OR (T); 

APC&APCTask «- RTemp, CALL [XETaskRet]; 

* Return; 

* End RS232 SIO command. 

T «- 37C-, * check bits 3:7 

T <- (ldf[EllostReg,3,5]) xor (T); *these bits will be 37b if the init code was run 
•(i.e. if there is an Ethernet board in the machine), and will be zero otherwise 
T *■ EHostReg, goto[EESI0Disp , ALU -0] ; 
ACO «- OC; 
ACO «- (ACO) xnor ( lOOOOOC) , goto[EESIODone] ; "return 77777b in ACO if no Ethernet board 

* First Ethernet board (Dispatch on bits 16,17): 
EESIODisp: DISPATCH [ACO, 16, 2]; 

DISP [EESIOOJ, ACO *- T; * This line when only one controller 

* 00 -- Do nothing. 

EESIOO: lu <- RTEMPl, dblgoto[EEMesaRet , EEMovaRet , Redd] , AT[EESIOLoc, 0]; 

* 01 -- Disable output. 

* Form APC&APCTask word to notify the output microcode 
EESIOl; RTEMP <- ANO@[0377, EOStartLocJC , AT[EESIOLoc, 1]; 

GOTO [EESIONotify], RTEMP «- (RTEMP) OR (0R@[1 shif t[EOTask, 14] , AND@[007400, EOStartLoc]]C) ; 

* 10 -- Disable InpLit 

* Form APC&APCTask word to notify the input microcode 
EESI02: RTEMP «- AND@[0377, EIStartLoc]C , AT[EESIOLoc, 2]; 

GOTO [EESIONotify], RTEMP <- (RTEMP) OR (0R@[1 shif t[EITask, 14] , ANDS [007400, EIStartLocJ]C) ; 

* 11 -- Disable Input and Output (TPC not initialized). 

EESI03: GOTO[EESIOAbort], RCNT «- XWDisablelnputOutput , AT[EESIOLoc, 3]; 

* Notify appropriate code (disable done by the task code). 
EESIONotify: CALL[XETaskRet] , APC&APCTASK ♦- RTEMP; 

* Return here when emulator runs again. 
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EESIODone: 1u <- FtTEMPl, ilblgoto[EEMesaRst , EENovaRet , Rodil] ;■ 

EENovnRet ; loadpage[iiePa()R]; 

rF10[17], gotopliioNoskipj; 

EEMesaRet ; loadpago[ 7"|; 

gotop[P/raii;i; 

* Used for tasking. 
XETaykRet: RETURN; 



* Codo for STC[3]. Disable input and output on boards. 
EESlOAbort: T <^ XOWSlate; 

nOTO [EESIODoiio], ODTPU r[RCHT] ; 

EMD; 
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» motliricd by IIGM - September 6, 1979 7:34 AM 

insertfdOlnng] ; 

HOM f DASINI T ; LANGVF.RSION ; MULTDIB ; 

insort[G lobalDefs] ; 

insort[XWOefs'|; 

TITLE [XW2SX0i; * Xerox Wire microcode (Defs in XWircOofs) 

* V/ritteii by Fioy Ogus. 
% 

Last niodifiod by (!oy Oyus - June 22, 1979 4:15 PM 

Notes: - This version handles 2 Ethernets or 2 Xerox v/ire boards. 

- This module has SIO code, and extra code for 2nd controller 

- Contains Conditional assembly. 

XWire=0 for Ethernets, XWire=l for Xerox Wire boards. 

Log: - rile reorganization (January 15, 1979 11:23 AM). 

- Conditional assembly (February 4, 1979 5:30 PM). 

- Upgrade to 3.0 (April 12, 1979 5:14 PM). 
% 

SET TASK [0 1; 



* EMULATOR TASK -- SIC instruction 

ON PAGE [EEPago]; 

'This code executes at task 

* Wo get hero after the SIO instruction has been issued. 

* Tbi; SIO control bits are in ACO. 

* fwo-board foriiint (using lOCBs): 

* SIO bits le, 17: Board 1. 

* - NOP 

' 1 Disable output (TPC is initialized), 

* 2 - Disable input (TPC is initialized). 

'" 3 - Disable board 1 (TPC not initialized) 

* SIO bits 14, 10: Board 2. 
« - Unused (NOP) 

* 1 - Disable output (TPC is initialized) 

* 2 - Disable input (TPC is initial izud) 

* 3 - Disable board 2 (TPC not initialized) 

* Note: PS232 SIO bits are 10, 11. 

* To enable boards, use OUTPUT[Command , StateRc'gister] ; 

* Board 1 : StateReg is Lerl = LSIIIFT[EOTasl<, 4], 

* Board 2 : StatoReg i ster2 = LSIIIFT[E0Task2 , 4"|. 

* Commands : 

* EnableOutput = 103B. 

* Enablelnput = 220B. 

* SIO returns (in ACO): 

* ACO[0] " - Al to -emu! at ion Ethernet microcode 

* AC0[1:2J - 3 - Al to-emul ntion Etiiernot microcode 

* - 2 - Xerox Wire liardware, lOCB microcode 

* = 1 - Ethernet hardware, lOCD microcode 

* AC0[3:7] = 37B 

* AC0[10B:17B] = Host number (Ethernet) 

* This code is really part of the emulator, and uses its temporary registers. 

* RTEHPl = 1 if called from Mesa, if called from Nova. 

* Get host address constant for Ethernet. 

EESIO; ACO < T, a t[ EESta rtl.oc] ; *savc control bits (useful only if called from Mesa) 

* RS232 SIO command. 

T <■ LOr[AC0, 10,2'J; * RS232 SIO bits are 10, 11 

Rlomp <-AND0[377, RS232SIOLoc]C ; 

RTemp <- (RTemp) OR (OR0[LS1IIFT[ 16 , 14] , ANDe[007400 , RS232SI0Loc]]C) ; 

RTemp <- (RTemp) OR (T) ; 

APC&APCTask «- RTemp, CALL [XWRoturn;]; 

* End RS232 SIO command, 

* Check bits 3:7, They v/ill be 37b if tlie init code was run 

* (i.e. if there is an Ethernet board in the machine) 

* and win be zero otherwise. 

T <- 37C; 

T ♦- (ldf[Ello.stReg,3,5]) xor (T); 

T <- EHostReg, goto[EESIODisp ,ALU=0] ; 

ACO *• OC; 

ACO <- (ACO) xnor ( lOOOOOC) ,goto[EESTODone]; 

* Return 77777b in ACO if no Ethernet board 

* First Ethernet board (Dispatch on bits 16,17): 
EESIODisp: 

DISPATCH [ACO, 16, 2]; 

* DISP [EESIOO], ACO «- T; * This line when only one controller 
DISP [EESIOO]; * This line when more than one controller 

* 00 -- Do nothing. 

EESIOO: G0T0[EE2si0A], DISPATCH [ACO, 14, 2], AT[EESIOl.oc, 0]; 

* 01 -- Disable output. 

* Form APC&APCTask word to notify the output microcode 
EESlOl: RTEMP «- AND@[0377, EOStartLoc]C , AT[EESIOLoc, 1]; 

GOTO [EESIONotify], RTEMP *- (RTEMP) OR (OR0[1 shif t[EOTask, 14] , AMD@[007400, EOStartLoc]]C) ; 

* 10 -- Disable Input 

* Form APC&APCTask word to notify the input microcode 
EESI02: RTEMP *- AND0[O377, EIStartLoc]C , AT[EESIOLoc, 2]; 

GOTO [EESIONotify], RTEMP «- (RTEMP) OR (OR@[lshi f t[EITask, 14] , AND@ [007400, EIStartLoc]]C) ; 
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* 11 -- Disable Input, and Output (TPC not initial i:;ed) . 

EESI03; G0T0[i-ES10Abort.], RCNT <- XUDisabloInputOiitpirt , A r[EESIOi.oc, 3J; 

' Motify appropriate code (disable done by the tasic code). 
ECSIONotify: 

CALL|;XWneturn], Af'C&APCTASK »- ftTEMP; 

* Socond Etiiornet ijoard (Dispatch on bits 14,15): 
EE2SI0: DISPATCH [ACQ, 14, '/]; 

EE2SI0A: DISP [EEZSIOO]; 

* 00 ■— Do nothiiKj 

EE2SIO0: cb'ro[ EESIODonel] , T ♦- EHostReg, Ar[EE2SIOI..oc , 0]; 

* 01 -- Disable output. 

EE2SI01: RTEMP ^ AHDe[0377, EOS tartLoclC , AT[ EE^SIOLoc , 1]; 

GOTO [EE2StONotiry], lUEMP <■ (RTEMP) OR (0R3[1 nh i ftfEOTask? , 14;) , ANOOfOO/lOO , E0StaitLoc2]]C) ; 

* 10 -- Disable Input 

EE2SI02: RTEMP <- ANDO[0377, ElSt ai-tLoc]C , AT(EE2SI0Loc, 2.1; 

GOTO [EE2SI0Not1fy], RTEMP <• (UTEMP) OR (OR0[1 sh i f t[EITasl^2 , 14] , AND0 [007400, ElStar-tLoc2]lC ) ; 

* 11 -- Disable Input and Output (TPC not initialized). 

EE2SI03: G0T0[ EE2SI0Aboit ] , RCMT <- XWi3 i sablulnpu tOu tput , ATf EE2SI0EOC , 3]; 

* Notify appropriate code (task code does disable). 
EE2SI0Noliry: 

CAEI.lXVJRotlirn], APC&APCTASK <- RTEMP; 

* Return hei-e when emulator runs again. 
ELSIODone: T ^ EHostReg; * Fix ACO for return 
EESIODonel: 

ACO <- T; 

Ui *- RTEMPl, dblgotoFEEMesaRet.EENovaRet .Rodd'l; 

EENovaRet: loadpago[nePago] ; 
El-l@[17], gotop[neNoskipl; 

EEMesaRet: 

loadpage[7"| ; 
yotop[i>/ fail ]; 

* Code for SI0[3]. Disable belli input and output. 
EESIOAbort: 

RTEMP *- AND0[EOTask, 17 ), CALL [XWKi 1 riiiiie r] ; 
T < XOWri testate, CALL[XWD i sable] ; 
T <• XlWritoStato, CALL[XWDi sabl e] ; 
GOTO [EE2SI0]; 

EE2SI0Abort: 

RTEMP - AflDe[E0Task2, 17 I, CALL [ XWK i 1 ITinier ] ; 
T «^ XOWri LoState2, CALEJXWDi sable ] ; 
E < XIWr1toStatc2, CALI (XWDisable j ; 
GOTO [EESIODone]; 

XWDisable: 

OUTPUT[RCNT], GOTO[XWDal ly] ; 

XWK ill Timor: 

RTEMP <- (RTEMP) i- ( XWIdl eTimer) ; 
LoadTimer[RTEMP], RETURN; 

END; 
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insGrt[ tlOl.ing'l ; 

NOMlDASINir;iANGVEI!iiIOM;HULTDIO; 

insertfGlobalDors]; 

in.sort,[XWOersJ; 

TITLE [XWTask]; • Xerox Wiro microcode (Defs in XWDefs) 

* Last rnodif iod by Murray on September 21, 1979 3:01 AH 

* nioilifiod by Murray on Scptembor 15, 1979 Base rog changes 

* modirioU by Murray on September 13, 1979 7:47 I'M 

* written by Roy Ogus (early 79). 
% 

This module contains basic code for a single controTler. 
File XVJSI02 contains StartIO code for two boards. 
This version has Ethernet address recognition. 

Data buffers must be quadwordal igned, and at. least 4 words long. 
Contains conditional assembly code for XW I rc/F. thernet . r 

XWire=0 for Ethernet, XWire-1 for Xerox wire hardware. 
Prefetching of CSR at end of packet. 
lOAITCN sense is reversed for XWiro. 

Currently, everything (input, output, and StartIO) fits on a single page. 

R register ALLOCATION 

(used by Doint) 
(used by DoInt) 

- Temporary register 

- Completion vjord 

- Buffer displacement 

- Buffer word counter (quadv/ord buffer) 

- Buffer pLr (low) (current lOCB) 

- Buffer ptr (high) (current lOCB) 

- Rase register for current lOCB (low) 

- Base register for current lOCB (high) 

- Base register for CSB (low) 

- Base register for CSB (high) 

- Temporary register (quadword buffei') 

- Temporary register 

- Temporary register 

- Temporary register 

R registers that overlay normal use 

R4 ' XV/CSBl - first word of CSB (not currently used) 

R5 XWNoxtlOCB " Short pointer to next lOCB 

R6 XIIIAI.o - Host address (low - input only) 

R7 XIIlAlli - Host address (high - input only) 



RO 





Rl 





n?. 


XWTomp 


R3 


XWComplelion 


R4 


XWIndex 


R'j 


XWCount 


m 


XWPtr 


R7 


XWPtrlli 


RIO 


XWIOCB 


Rll 


XWEOCBIIi 


R12 


XWCSB 


R13 


XWCSBHi 


R14 


XWTempl 


R15 


XWTemp2 


R16 


XWTomp3 


R17 


XWTemp4 
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INPUT MICROCODE 
Input CSB 

00 (reserved For emulator control) 

01 Short pointer to First IOCS 

02 Host address (low word) 

03 Host address (Irigli v/ord) 

04 Input wakeup bit mask 

05 Packets missed (for debutjQing) 
OG-07 (unused) 

10-13 quadword scratch buTer 
I') 17 Used by tost program 

Input lOCU 

00 Link to next lOCB 

01 (unused) 

02 Command word 

03 Completion word 

04 Amount used in buffer 

05 length of buffer 

06 Low pointer to buffer 

07 High pointer to buffer 
% 

SliT TASK [0]; * For H- register addressing 

UN PAGE[EIPngeJ; 

* Input microcode is notified at XlStart to initialize. 

XlStart: XWTomp <• XWDisabioInput , CALl.[XWOutState] , AT [FIStartLoc]; 

* ADDRESS RLCOGfJITION: Fthernot encapsulation assumed. 

* Chock if the packet, 

* is expiicitiy for this host (dost=us), 

* or is broadcast (dost=0), 

* or if the host is promiscuous (us=0). 

* There are two wakeup poirrts. 

* XIBegin: No prefetch of CSB has been done. 

* XIFastBogin; Prefetch of CSB has been done. 

XIBegin: ' PFctch4 [XWCSB, XWC5B1, XWIndexMoader! ]; * Fetch first 4 words of CSB 
XIFas tBegin : 

"lOStoro4 [XWCSB, XlOata, XWIndexScratch! ] ; • Read in 4 words to scratch area in CSB 

LU <- RIIMASKfXIIIALo]; 

SKIP [AlU/ZOJ, PFetch4 [XWCSB, XWTempl, XWIndexScratch!]; 

GOTO [XIForMe], T <- XWMextlOCB; * wo aro promiscuous 

T <• RSH [XWTempl, 10"]; * Right justify destination host in T 

SKIP [ALU//0], LU «- (RHMASK[XIHALo'|) XOR (T); 

GOTO [XlForMo], T <- XWNextlOCB; * Broadcast 

SKIP [ALU//0]; 

GOTO [XIForMe], T ♦- XWNextlOCB; * Packet explicitly for mo 

* Packet not accepted by filter. 

* Tell the har'dwai'o to ignore the rest of the packet, i.e. purge packet. 
XIPurge: XWTcmp <- XWSelPurgoMode ; CALL[XWOutStatol ; 

* Return here after wakeup 

GOTO [XIFastBegin]; 

* GET BUFFER STARTED 

* Check for no lOCB available (in case it was a slow wakeup). 
XIForMe: 

GOTO[XIIndoxOK, ALU//0], XWIOCB <- T; * ALU-O => No lOCB 
*•* No lOCB. Bump counter in CSB. 

PFetchl[XWCSB, XWTcmp, XWIndexlJoICBCount ! ] ; 

XWTomp «- ( XWTcmp ) + l; 

PStorel[XWCSn, XWTemp, XWIndoxNoICBCount ! ]; 
XIPurgeSlow: 

XWTemp <- XWSetPurgeMode ; CALL[XWOutState] ; 

* Return hero after wakeup 

GOTO [XIBegin]; 

* Set up lOCB. 
XIIndexOK: 

* Check for runt packets (<= 3 words, excluding CRC). 

* IOATTEN-1 (0 on XWIi'e) => EOP => small packet 

$SkipNOATTEN; 

GOTO [XIPurge]; 

NOP; * Al ignment(?) Ether 

CALL[XWB3etup]; 

XWCount <- (XWCount)-(4C); 

SKIP [ALU>=0]; 

GOTO [XIHark], T <- XWCompletion <- XWErrorZeroBuf ; 

NOP; * Alignmont(7) XWire 

T <- OC, CALL[XWStoreTemps]; 

CALL[XILoop], XWCount «- (XWCount) -(4C) ; 

* Main loop-checks for end of buffer, then checks ATTEN for end-of -packet . 
XILoop: GOTO [XIQuadFull , R<0], XWCount ♦- (XWCount) -(4C) ; 

$SkipNOATTEN, T <- (XWIndex) *- (XWIndex) + (4C) ; 
GOTO [XIAttn], INPUT[XWTemp , XWStatus]; 
RETURN, I0Storo4[XWPtr, XIData]; 

* Get here when there is no more room for quadwords in the buffer. 

* Check ATTEN to see if end of packet. 
XIQuadFull: 

» SPIN to scope the weird glitch 

* CALL[.+1]; 
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» (XWliidex) «- (XWIiidex) + (4C); 

* SGoToIOAl TEN [ . i2]; 

* !!tTUI!N, I0Store4 [ XWCSR , XIData, XWIiulcxScratch] ; 

* GOTO [XTAttiil, INPUr[XWTomp, XWStaLus]; 

* Number of singlos remaining in buffer = XWCount+8. 

* Set up XV/Count as (No. siiujles-l) , and read in singles. 

XWCount «■ (XWCount) ^(7C); 

CAl.L[XISinc|1es|, (XWTndex) <- { XWIndex) ^(3C) ; 
XlSingies: GOTO [XXOufFun, R<0], XWCount «• (XWCount)-!; 
SSkipKOATTEfj, T <- (XWIndex) <- (XWlndex)H; 
r.OTG [XIAttnj, IMPUT[XWTcinp, XWStatus]; 
INPUT [XWTemp, XIDataJ; 
I.U < XWTemp; 
RFIURN, PStorel [XV/Ptr, XV/Temp]; 

* Wo get liere when the input buffer 1s exactly' full. 

* ChGcl< if AfTF.M for EOP , indicating tliat the last word was the CRC. 
XIBufFull: SSkipNOATTEM, XWIndex < (XWIndex)H; 

GOTO [XIAttn], rNPllT[XWTemp , XWStatus]; 

* Chock if there is only one more wor-d (i.e. the CRC), 

* otherwise mark the packet buffer overrun. 
INPUT fXWTomp, XIDala'l, CALL[XWRoturn] ; 
HOP; * Wait for ATTN 

$SkipNOATTEN, XWIndex «- (XWIndox)+l; 

GOTO [XIAttn], INPUT [XWTemp, XWStatus]; * FOP, thus there was only one more word (CRC) 

GOTO [XIHarkj, I *• XWCompletion <■ XWPklBuf Overrun ; 

* f-INISII UP PACKET 

* We arrive hero after an lOATTEN/NOATTEM is detected, 

* indicating an end of packet. 

* XWIndex has the number of words stored in the current buffer. 
" XWTemp lias status word 

XIAttn: T <- I.DF [XWTemp, 10, 2]; * Get excess count 

XWIndex *- (XWIndex ) (I ) -1 , CALL[XWStoreIndex] ; * CRC too 
XIAttnl: XWTemp ♦■ (XWTemp) AND (iFEe[XWire, 0, XISMask, XXISMask]); * Isolate TnStatus 

Skip[Al U//0]; 

GOTOfXIMark], T <- XV/Compl ot ion <- XWGoodPacket ; 

XWCompletion <■ XWE rrorOadHWPkt ; * The hardware indicated problems 

T <• (RSII[XWTemp, 10]); * Right justify status (Ethernet) 
XIMark: XWCompletion <- (XWCompletion) OR (T), CALF[XWStoreStatus] ; 

CALL[XWNotify]; 

CALL[XWHext]; 

* Now check if there is a buffer. 

T <- XWNextlOCB; 

SKIP[AlU//0], XWIOCB <- T; * Al U-0 -> no lOCB 

GOIO [XIPurgeSlow]; 

GOIO jXlPurge]; 
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OUTPUT MICROCODE 



Oiitpiit CSB 

00 (reserved for emulator control) 

01 Short pointer to First lOCB 
02-03 (unused) 

04 Output vMkeup bit mask 

5-17 (unused) 

Output lOCB 

00 ■ Link to next lOCQ 

01 Initial Retransmission Interval 

02 Connnand v/ord 

03 Completion word 

04 (Unused) 

05 Length of buffer 

06 Low pointer to buffer 

07 Hinh pointer to buffer 
% 

ONPACC[FOPago]; 

* Output microcode is notified at XOStart to initialize. 
XOtloWork: 

XOStart: XWTemp «- XWDisabI eOutput , CALL[XWOutStatol , AT [EOStartLoc] ; 

' Idle state of output microcode. 

XODegin: Pf etch4[XWCSn, XWCSni, XWIndexlleader ! ] ; ' fetch pointer to first lOCB 

T <- XWNextlOCn; 
XOCheck: SKIP[ALU//0 | , XWIOCR ♦■ T; * ALU = -> no I0C8 

GOTO [XONoWorkj; 

* check to see if we are sending the same packet twice 
« Pfetchl[XV\ICSB, XWTemp, XWIndexTrans Int ] ; 

LU <• XWTemp; 

* SKIP[ALU-01; 
' rSREAkPOINT; 

* NOP ; 

CALL[XV/BSotupl; 

LU *- XWCount; 

SKIP [ALU>=01; 

GOTO [XOMark], T «• XWCompletion <- XWEr ro rZo roBuf ; • Buffer empty 

PFetchl[XWIOCn, XWTempl, XWIndexTransInt ! ]; 

SKIP [R>-01, XWTempl <- ( LSII[ XWTempl , 1] ) + l ; * R<0 => overflow 

GOTO [XOHark], T <- XWCompletion <- XWErrorCountOV; 

PStorel[XW10CB, XWTempl, XWIndexTransInt I ] ; 

* Compute countdown interval 

* Use memory refresh address for random number. 
XOCountdown : 

T <- Stkp; * Save Stkp 

XWTomp3 f- pXWRandomRog ; * point to "random" register 

Stkp <- XWTonip3, XWTemp3 <- T; *** Expect interlock warning 

* Eonn new transmission Interval mask, check if old has overflowed 

T <• CTASK; * XOR with Task mniiber to add randomization 

T <- (LDE [Stack, 4, 10]) XOR (T); * Get bits 4-13n for random number 

XWTemp3 <^ (XWIempS) XOR (377C); * Complement Stkp value 

Stkp <- XWTemp3; * Restore stack -po inter 

XWTempl <- (RSII[XWTompl, 1] ) AND (T); * Mask random number with old value 

* What is correct scale factor? 

GOTO [XOGO, ALU=0], XWTempl <- LSH[XWTempl , Z] ; 

T <- (LDF[XWTempl, 7, 21)-1; 

XWTemp3 <- T, TASK; * Save high part (minus 1) In XWfeiiip3 

XWTempl <- LDF[XWTompl, 11, 7]; 

XWTemp < XWDisableOutput ; 

OUTPUT [XWTemp, XWWriteState]; 

* XWTempl now has low 7 bits of random no. 

* Start simple timer with low 7 bits of random number. 

* Timer slot is EOTask, 

XWTemp4 <- XWTimerMask; * Compute timer word 
T <- CTASK; * Timer slot is same as output task no. 
T <- (XWTemp4) OR (T); 
XOLoadTimer: 

XWTempl ♦- LSII[XWTompl, 4]; * align data part 
XWTempl <- (XWTempl) OR (T); * OR in mask 
LoadTimer[XWTempl], CALL[XWDal ly] ; 

* Can't fiddle timers as last Instruction in task 

GOTO[XWRoturn] ; * Driver poked us while wg wore waiting 

* Timer has expired. 

* Check if still more time to elapse before start of transmission (High part of random number >=0). 
EOTimorDone: 

XWTempl «- 177C, AT [EOTimerDoneLoc] ; * Set up maximum timer value 
GOTO [XOLoadTimer, R>=0], XWTemp3 i- (XWTemp3)-l; 

* Countdown interval is over 

* Start to output words to the hardware. The hardware will start 

* the transmission to the Wire as soon as the buffer has 

* > 10 words in the hardware buffer, or the OutputEOP bit 

* is set (for a packet of less than 12 words) 
XWTemp *- XWtnableOutput, CALL[XV/OutState] ; 

XOGO: 

IFE9[XWire, 0, COMCilA'R@[";| , COMC1IAR0[ ' ]] ; 

*' This code for Ethernet boards. 

XWIndex ♦- (XWIndex)-(4C) ; * Initialize displacement to -4 
*' End of code for Ethernet boards. 
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t" This code for Xorox Wiro boards. Send I'rediiible. 

T <■ XWTemp ♦■ XWPream; 

XWremp <- (l.S!l[XWT(!mp,10]) OF! (T); 

OU)PUT[XWTeiiip, XOData];" 

XWIndcx +■ (XWIndex) -(4C); • Let XWTciiip be written 

XV,'T«ii!p <- (XWToinp) + l; 

OUIPUT[XV;tcmp, XOData"], CALL[XWDal ly]; 

*" End of code for Xorox Wire boards. 

COMCIIARe[~;j; *ReseL back to ~ 

CAI.L[XOL.oop'|, XWCouiit «• (XWCoiint.) -(-1C) ; 

* Main loop -checks for end of buffer, tlieii checks ATTEM for end-of-pkt. 
XOLoop: GOTO [XCQuadEmp ty , fKO], XWCoimt <■ (XWCount ) -(40) ; 

,$GoroIOATTf;N [XOAbortf, T <- (XWIndex) <- (XWIndex)-i(4C) ; 
iiETUPN, I0Fotch4[XWPtr, XOData]; 

* Normal exit from Output Loop is here 

* Number of siiicjles remaining in buffer - XWCount+8. 

'" Set up XV/Count as (No. singles -1), and output singles. 
XOOiiadLmpty: T <• XWIndex f- (XWIndex) i(4C) ; 

CALL[X0SiiKj1es I, XWCount *- ( XWCount ) + ( 7C) ; 
XOSingies; GOTO [XOCnd, IKO], XWCount «- (XWCount)-l; 

$SkipHOATTEN, PEetchl [XWPtr, XWTempJ; 

GOTO rXOAbort]; 

T <- (ZCRO)+(T)+ T, XWTemp; * Update T and Abort 

COTO[XWDany], OUTPUT [XWTemp, XOData]; * OUTPUT Timing 

* END OF PACKET 
XOEnd: 

* Hack to generate lots of JAMs -~ Just wait for an UnderRun 

* CALL[,H]; 

* NOP; 

* $SkipNOATTEN; 

* GOTO [XOAbortl; 

* RETURN; 

XWTemp ^ XWSetOutputEOP , CALL[XWOutState] ; * Sot OutputEOP bit 
NOP; * Aiignment(7) XW i re 

* Wait for end -of -packet v;akeup 

XOAbort: INPUT [XWTemp, XWStatus]; * Read Status 

XWTemp <- (XWTemp) AND (IFE@[XWire, 0, XOSMask, XXOSMask]); * Isolate OutStatus 

GOTO [XOPacketOK, ALU-=0], LU <- (XWTemp) XOR (IFE@[XWire, 0, XOCol i isionHask , XXOCoil i sionMask]) ; 

* error reported by the liardwaro 

SKIP [ALU-0], T <- RSII["XWronip, 10]; 

XWComplotion <- XWErrorUadHWPkt , COTO[XOMark] ; 

Protch4[XV;cSB, XWCSBI, XWIndextleader!], GOToixOCI ear] ; * Collision only 

* GOOD PACKET status: 
XOPacketOK: 

T ^ XWCompletion <- XWGoodPacket ; * Mark packet good 
XOMark: XWComplotion <- (XWCompletion) OR (T), CALL| XWStoreStatus] ; 

CALL[XWNotiTyJ; 
XONoxtBuf : 

CALL[XWNext]; * Get next lOCR set up, and fall into collision. 

* COLLISION, restart same packet. 
XOClear: XWTemp «- XWD isabl eOutput ; 

OUTPUT [XWTemp, XWWriteState] ; 

XWTemp <- XWEnab loOutput , CALLixWOutStato] ; 

* Now check if there is a buffer. 

T <^- XWNextlOCB, GOTO[XOCheck]; 
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* Get buffer descriptor pointed to in T, 

•" and fix pointer (in XWPtr, XWPtrHi) XWPtrHi goos from (0, x) to (x, xM) 

" CI oars XWIndex 

XV/iJSetup: 

['FGtch4 [XWIOCB, XWIndex, XVJTndoxOuf ferT] ; 

XWIndGX <- OC; 

r <- (XWPtrHi) H; * Fix up high pointer 

* HUMBLE 

RLTURN, XWPtnii «- (I.SII[XWPtrHi, 10]) OR (T); 

* Various simple Load/Storo routines that are handy for TASKin;) 

* T points to destination v;ord 

XWStoreStatus: GOTOrXWI^elurn] , PStorel[XWIOCR , XWComplet ion , XWindoxCompietion ! j ; 
XWStorelndex: GOTOiXWReturn] , PSLorel[XWIOCB , XWIndex, XWIndoxBijf f er! 1 ; 

XWStoreTenips: RETURN, PStore4[XWPt r, XWTempi;]; 

* Chain to next lOCB and upiiate pointer in CSfl 

* Ihis could be mei'QOd with XWNotify, 

* but tliat would be too iong between TASKs 
XWMext: 

Pf etch4rxWCSR. XWCSBl, XWTndexlleador! 1 ; 

l.U <- XWCSfil; 

PFetclil[XWIOCB, XWNoxtlOCB, XW [ndexNoxt ! j ; 

LU <^- XWNextlOCB; 

RETURH, PSlore4ixWCSB, XWCSBl, XWIndexlieuder ! I ; 

* Notify tlio driver. 
XWNotify: 

PFetchl [XWCSB, XWTomp , XWIndexWake ! ] ; * Fetch wakeup bitmasl^ 
l.oadPayo[0'J; * 100000c means tasl^ing return 
T ♦ (XWTeinp) or (lOOOOOc), GOTOP[DoInt] ; 

XWOutState: 

OUTPUT [XWTe.-i!p, XV;WriteState| ; 
XWDaily: NOP; * Need at least 2 instructions after OUTPUT before task switch 
XWfieturn: RETURN; 

END[XWTask]; 



